Как открыть файл при наличии в ЕГО имени символов "?" - VB
Формулировка задачи:
Есть файл, в имени которого присутствует символ "АнглийскийФунт" (см. картинку). Моя прога вместо ЭТОГО символа пишет в ИмениФайла символ "?" и при попытке открыть файл выдаёт ошибку (см. картинку). Пытался перенеймить файл, но таже ошибка (мне потом этот файл ещё надо переложить в другую папку...)
Подскажите, плз, как с этим бороться ?? (ведь Винды ЕГО могут открыть...)
Решение задачи: «Как открыть файл при наличии в ЕГО имени символов "?"»
textual
Листинг программы
- Private Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long 'ïåðåìåñòèòü (èëè ïåðåèìåГ*îâГ*ГІГј) ГґГ*éë (или папку)
- '--------------------------------------------
- FN = Dir(PutHH + "*.*"):
- While FN <> "":
- ms1 = Split(FN, " ")
- For j = 0 To UBound(ms1)
- If Left(ms1(j), 1) = "?" Then
- m = Replace(FN, "?", "$")
- retval = MoveFile(PutHH + FN, PutHH + m)
- FN = m
- Exit For
- End If
- Next j:
- '------------------
- 'обработка
- '------------------
- FN = Dir:
- Wend:
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д