Перебирая все файлы в каталоге VBA

Question

Я пытаюсь перебрать все файлы в данном каталоге с помощью VBA и заменить несколько слов в каждом файле перед сохранением его в другом каталоге. Я использую метод:

With Application
        Do While Len(fileName) > 0

Где fileName:

fileName = Dir$("C:\FOLDER\" & "*")

После запуска кода у меня есть:

fileName = Dir
        Loop

Однако, после того, как он возвращается к началу цикла, он больше не берет файлы. Я уверен, что в данном каталоге несколько файлов .. Есть идеи?

Answer 1

Проверьте его в отдельных подпрограммах, эти два кода работают.

 Sub LoopAllFiles()
        Dim StrFile As String
         StrFile = Dir$("C:\FOLDER\" & "*")

        Do While Len(StrFile) > 0
            StrFile = Dir
        Loop

End Sub



Sub LoopAllFiles()
    Dim StrFile As String
    StrFile = Dir("C:\FOLDER\" & "*")
    Do While StrFile <> ""
         StrFile = Dir
    Loop

End Sub