Список файлов в папке и вложенной папке с файлом пути .txt

Question

У меня есть лист Excel, содержащий ячейку, которая содержит путь к каталогу, я хочу, чтобы макрос, который ищет каталог и любые подкаталоги, и перечисляет файлы в .txt, с полным путем каждого файла.

В настоящее время я нашел, что похоже, что он должен найти файлы, за исключением того, что путь жестко закодирован, и он ничего не делает с результатами.

Любые идеи, как я могу изменить его в соответствии с моими потребностями?

Sub LoopThroughFiles() 
Dim StrFile As String 
StrFile = Dir("C:\Work\NCL\nCLs\histogram_addition\TestData\Input\RTE\") 
Do While Len(StrFile) > 0 
    Debug.Print StrFile 
    StrFile = Dir 
Loop 
End Sub 

Answer 1

Вот метод починилась из примеров FileSystemObject() с помощью рекурсивного вызова. Примените сортировку к результатам, если это необходимо. Кроме того, можно фильтровать расширением .txt, используя другие FileSystemObject() методы:

Sub Sample() 
     ShowFolderList ("C:\temp") 
    End Sub 

    Sub ShowFolderList(folderspec) 
     Dim fs, f, f1, fc, s, sFldr 
     Set fs = CreateObject("Scripting.FileSystemObject") 
     Set f = fs.GetFolder(folderspec) 
     Set fc = f.SubFolders 
     For Each f1 In fc 
      If Right(f1, 1) <> "\" Then ShowFolderList f1 & "\" Else ShowFolderList f1 
     Next 
     Set fc = f.Files 
     For Each f1 In fc 
      Debug.Print folderspec & f1.Name 
     Next 
    End Sub 

Запись в файл:

Option Explicit 

    Dim file As Object 
    Dim fs As Object 

    Sub go() 
     Set fs = CreateObject("Scripting.FileSystemObject") 
     Set file = fs.OpenTextFile("C:\temp2\results3.txt", 2, True) ' 2=ForWriting, replace 
     ShowFolderList "C:\temp\" 
     file.Close 
     MsgBox "done" 
    End Sub 

    Sub ShowFolderList(folderspec) 
    On Error GoTo local_err 
     Dim f, f1, fc, s, sFldr 
     Set f = fs.GetFolder(folderspec) 
     Set fc = f.SubFolders 
     For Each f1 In fc 
      If Right(f1, 1) <> "\" Then ShowFolderList f1 & "\" Else ShowFolderList f1 
     Next 
     Set fc = f.Files 
     For Each f1 In fc 
      file.writeline folderspec & f1.Name 
     Next 
    local_exit: 
     Exit Sub 
    local_err: 
     MsgBox Err & " " & Err.Description 
     Resume local_exit 
     Resume 
    End Sub