VBA - искать похожие имена файлов - PullRequest
0 голосов
/ 20 апреля 2020

Я хотел бы проверить, является ли в папке Folder2 строковая часть файла, который также находится в папке 1. Если папка 2 пуста или имя файла отличается, выполните al oop. Я пробовал это, но это не работает.

Set fils = FSO.GetFolder(Folder1_path).Files
Set fils2 = FSO.GetFolder(Folder2_path).Files

Dim filename_csv As String
Dim filename_xls As String

For Each fil In fils
    filename_csv = fil.Name
    filename_csv = Right(filename_csv, 16)
    filename_csv = Trim(Replace(filename_csv, ".csv", ""))
    For Each fil2 In fils2
        filename_xls = fil2.Name
        filename_xls = Right(filename_xls, 16)
        filename_xls = Trim(Replace(filename_xls, ".xls", ""))
        If filename_csv <> filename_xls Or (FSO.FileExists(Folder2_path & "\" & "*" & ".xls")) = False Then
         [code copy the files]   
        End If
    Next
Next

* в if если l oop должен быть параметром свободной переменной

Нет сообщения об ошибке, но он не делает If -l oop

Надеюсь, что кто-то может мне помочь

спасибо!

...