Как получить список директорий и список файлов в директории - VB

Формулировка задачи:

Очень нужно организовать поиск на диске. Как искать в нутри файла я знаю, а вот как искать вовсех файлах на диске и в поддиректориях незная

Решение задачи: «Как получить список директорий и список файлов в директории»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
 GetFileList "E:1"
End Sub
 
'Печатаем список файлов, находящихся в заданной папке
'и во вложенных папках: 
Sub GetFileList(folderspec)
    Dim fs, f, fSubFolders, fFiles, f1, s
    Set fs = CreateObject('Scripting.FileSystemObject')
    Set f = fs.GetFolder(folderspec)
    Set fFiles = f.Files
    Set fSubFolders = f.SubFolders
    
    For Each f1 In fFiles
       Debug.Print f1.Path & " " & f1.DateCreated
    Next
    
    For Each f1 In fSubFolders
      GetFileList f1.Path
    Next
End Sub
                        