Проверка совпадения имен файлов - 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

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


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

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

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