Проверка совпадения имен файлов - VB
Формулировка задачи:
Здравствуйте.
Макросом из Ворда сохраняю файл в нужную папку на диске. При этом если файл с таким именем уже есть в этой папке, то он перезаписывается. Хочу понять как выполнить проверку наличия уже существующего файла с таким именем, чтобы можно было реализовать возможность выбора замены файла, сохранения под другим именем или отмены сохранения. Точнее, проверку нужно производить по части имени.
Пример: есть файл TZ_105-17_01.03.2017.docm. Создаётся файл TZ_105-17_05.03.2017.docm. Как видите меняется дата. Но двух одинаковых документов с номером 105-17 не должно быть.
Я в этом деле новичок и только начинаю изучать VB, поэтому если что не так прошу ногами не пинать.
Решение задачи: «Проверка совпадения имен файлов»
textual
Листинг программы
CurrFile = Dir$("C:\MyFolder" & "*.*", vbNormal) Do While Len(CurrFile) > 0 If InStr(CurrFile, "105-17")) Then 'в папке есть файл с совпадением. удаляем... Kill CurrFile End If CurrFile = Dir$() Loop
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д