Как открыть файл при наличии в ЕГО имени символов "?" - 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:
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д