Добрый день!
Возникла проблема с удалением файлов, содержащих в названии символы unicode. Например: Армения_1994_25 դր.jpg
Когда название файла с помощью strFileName = Dir передаётся в переменную, то оно превращается в Армения_1994_25 ??.jpg
И соответственно, когда я пытаюсь его удалить командой Kill вылетает ошибка, т.к. файла с вопросами в названии в папке нет.
Как можно обойти эту проблему? Может возможно обойтись здесь без переменной, которая искажает имя файла?
Код ниже урезан, вообще нужно выборочно файлы удалить, но тут упрощен до удаления всех файлов
Возникла проблема с удалением файлов, содержащих в названии символы unicode. Например: Армения_1994_25 դր.jpg
Когда название файла с помощью strFileName = Dir передаётся в переменную, то оно превращается в Армения_1994_25 ??.jpg
И соответственно, когда я пытаюсь его удалить командой Kill вылетает ошибка, т.к. файла с вопросами в названии в папке нет.
Как можно обойти эту проблему? Может возможно обойтись здесь без переменной, которая искажает имя файла?
Код ниже урезан, вообще нужно выборочно файлы удалить, но тут упрощен до удаления всех файлов
| Код |
|---|
Dim strDirPath, strMaskSearch, strFileName As String strDirPath = "D:/Test1/" 'Папка поиска strMaskSearch = "*.jpg*" 'Маска поиска 'Получаем первый файл соответствующий шаблону strFileName = Dir(strDirPath & strMaskSearch) Do While strFileName <> "" 'До тех пор пока файлы "не закончатся" Kill strDirPath & strFileName strFileName = Dir 'Следующий файл Loop |
