Как открыть файл при наличии в ЕГО имени символов "?" - 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:

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4 из 5
Похожие ответы