Работа с файлами, содержащими символ "?"

[Alexandr Popov]

Добрый день.
Столкнулся со следующей проблемой. Буду признателен за помощь в решении, т.к. после 2-х дневного поиска в Интрнет и ChatGPT ответа не нашёл.
Есть макрос, который среди прочего осуществляет коирование фалов из одной папки в другую.
Перенос осуществляется командой Call FileCopy("C:\1\й.pdf", "C:\2\й.pdf").
Всё работает до тех по, пока не встречается особенный файл.
Пример: "й.pdf". Здесь символ "й" записан как "и?".
То есть, если скопировать имя этого файла в ячейку Excel и разложить его по кодам символов, то получится, что имя записано так:
знак символ код символа знак символа
1 и 232 и
2 ̆ 63 ?
3 . 46 .
4 p 112 p
5 d 100 d
6 f 102 f
При переборе файлов в папке функцией Dir при нахождении такого файла возвращаеся имя "и?.pdf".
Функция Call FileCopy("C:\1\й.pdf", "C:\2\й.pdf") или Call FileCopy("C:\1\и?.pdf", "C:\2\й.pdf"). Выдают ошибку - файл не найден (bad file name or number).
Каким образом в VBA работать с таким фалом (копировать, переносить, удалять, переименовывать)?

[jillitil]

Кто-то пошутил. У вас не "й" (и краткое), а "и" с диакритическим знаком "Кра́тка".

Например впереди два одинаковых текста, но по-разному отображаются в разных местах:

й ≠ й ≠ и̃
и̃я креве́дка, йо́жик, Ей огу́рец не́ нра́вится.

й ≠ й ≠ и̃
и̃я креве́дка, йо́жик, Ей огу́рец не́ нра́вится.

Не понятно... Он (респондент) и вправду считает, что переименовать файл в ручную оригинальное решение до которого человек, задавший вопрос, не мог додуматься сам

... после 2-х дневного поиска в Интрнет и ChatGPT ответа не нашёл....

Видимо, респондент умнее и грамотнее вас. Пятнадцать лет на форуме, несколько дней гуглёжа, совместно с самым передовым ИИ, плюс прямой ответ не дал вам умозаключений на проблему букв нелатиницы в именах файлов, которая решена как пару десятилетий? Зато жалобу кинуть ума хватило.
Эх, эволюция, бессердечная ты сука! © Шелдон, ТБЗ.
Первая же ссылка на проблему в гугле говорит зачем желательно не использовать Dir.

Ответ:

• Переименуйте такие файлы вручную в проводнике или другом любимом менеджере файлов без спец.символов. (того что вы не осилили и назвали заумными словами)
• Используйте только латиницу
• Используйте FileSystemObject

[Alexandr Popov]

jillitil, Разумеется, жалобу кинул. Потому что Ваш ответ - это умничание и ничего более. И ворой ответ - то же. Если всё так просто - ответьте по-нормальному. Если не заете ответ - для чего засорять чат? Вдруг найдутся действительно компетентные люди. Переменовать файлы в ручную - не вариант (иначе бы не писал вопрос). Файлы формирую не я, их формирует сторонняя программа.

Никогда не понимал таких людей. Ничего по сути не говорят, зато пишут с умным видом текст, корый всячески подчёркивает некомпетентость автора и глубочайший интеллект отвечающего.

И да, не знаю я ответа на этот вопрос. И признаю это, задавая этот вопос. Педполагаю, что у всех разная специализация - всего знать невозможно. А вы, веротяно, увидев это решили постебаться над автором вопроса. Ну что же, успехов в самоутверждении.

[ViktorR]

Попробуйте посмотреть на имя вашего файла иначе:
1. Поместите такой файл и ещё какой либо в папку, например C:\abc
2. Напишите скрипт в Блокноте:

@ echo off
chcp 1251
for %%m in (c:\abc\*.*) do (
   echo  %%m
)

и дайте ему имя, например, a.cmd и сохраните в папке C:\abc

3. Запустите скрипт в командной строке
Запуск Командной строки, например: Win+R --> cmd --> Ok
Перейти в папку:

> cd c:\abc

Запуск скрипта:

> a.cmd

4. И какой результат?

PS:
1. Не набирайте символ '>' - это из строки-приглашения командной строки.

2. Скрипт набирайте в Блокноте и сохраняйте в кодировке ANSI
Сохранить как ... --> Выбрать кодировку ANSI (поле "Кодировка" в нижней части формы)

[Алексей1153]

Сообщение от Alexandr Popov

и ChatGPT ответа не нашёл.

даладна! дабытьтакованиможит! o_O шок шок

[Fck_This]

Сообщение от Alexandr Popov

особенный файл.

Сам файл будет или нет? Если вы знаете имя и символы варьирующиеся, то попробуйте предусмотреть варианты, составить имя по номерам символов (не знаю, как там в эксель раскладываются тексты на символы, но в VBA через ChrW лучше): Если в папке есть файл, к примеру, ChrW(1080) & ChrW(774) & ".pdf", то копировать его, если есть ChrW(1081) & ".pdf" - то этот, если ChrW(1080) & ChrW(771) & ".pdf" - соответственно. Это номера символов, приведённые пользователем jillitil. Какой у вас точно сказать нельзя, скорее всего проблема в разности кодировки программы подающей вам файлы.

[Alexandr Popov]

Сообщение от Fck_This

Сам файл будет или нет? Если вы знаете имя и символы варьирующиеся, то попробуйте предусмотреть варианты, составить имя по номерам символов (не знаю, как там в эксель раскладываются тексты на символы, но в VBA через ChrW лучше): Если в папке есть файл, к примеру, ChrW(1080) & ChrW(774) & ".pdf", то копировать его, если есть ChrW(1081) & ".pdf" - то этот, если ChrW(1080) & ChrW(771) & ".pdf" - соответственно. Это номера символов, приведённые пользователем jillitil. Какой у вас точно сказать нельзя, скорее всего проблема в разности кодировки программы подающей вам файлы.

Спасибо Вам огромное. Чётко, по делу и без стёба. Вы настоящий профи!!!
Помогло следующее (файлик находится в папке C:\1\):

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemO bject")
fso.CopyFile "C:\1\и" & ChrW(774) & ".pdf", "C:\1\new"