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

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