VBS: ファイル一覧とフォルダ一覧の取得

なぜ枯れた技術に縋ってるんでしょうね

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