Как открыть файл при наличии в ЕГО имени символов "?" - VB

Узнай цену своей работы

Формулировка задачи:

Есть файл, в имени которого присутствует символ "АнглийскийФунт" (см. картинку). Моя прога вместо ЭТОГО символа пишет в ИмениФайла символ "?" и при попытке открыть файл выдаёт ошибку (см. картинку). Пытался перенеймить файл, но таже ошибка (мне потом этот файл ещё надо переложить в другую папку...) Подскажите, плз, как с этим бороться ?? (ведь Винды ЕГО могут открыть...)

Решение задачи: «Как открыть файл при наличии в ЕГО имени символов "?"»

textual
Листинг программы
  1. Private Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long 'ïåðåìåñòèòü (èëè ïåðåèìåГ*îâГ*ГІГј) ГґГ*éë (или папку)
  2. '--------------------------------------------
  3. FN = Dir(PutHH + "*.*"):
  4. While FN <> "":
  5. ms1 = Split(FN, " ")
  6.  
  7. For j = 0 To UBound(ms1)
  8. If Left(ms1(j), 1) = "?" Then
  9. m = Replace(FN, "?", "$")
  10. retval = MoveFile(PutHH + FN, PutHH + m)
  11. FN = m
  12. Exit For
  13. End If
  14. Next j:
  15. '------------------
  16. 'обработка
  17. '------------------
  18. FN = Dir:
  19. Wend:

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


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

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

7   голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы