なぜ枯れた技術に縋ってるんでしょうね
dim fso
set fso = createObject("Scripting.FileSystemObject")
dim folder
set folder = fso.getFolder("C:\")
' ファイル一覧
dim file
for each file in folder.files
msgbox file.name
next
' サブフォルダ一覧
dim subfolder
for each subfolder in folder.subfolders
msgbox subfolder.name
next