ファイル一覧/フォルダ一覧の取得

WSH 
Set fso = CreateObject("Scripting.FileSystemObject")
Set src = fso.GetFolder("C:＼script＼tips")    ' 対象フォルダの指定

' 指定のフォルダに格納された各ファイルを処理する
tmpMessage = "ファイル一覧:" & vbNewLine
For Each FileName In src.Files
    tmpMessage = tmpMessage & FileName & vbNewLine
Next
WScript.Echo tmpMessage

' 指定のフォルダに格納された各サブフォルダを処理する
tmpMessage = "フォルダ一覧:" & vbNewLine
For Each FolderName In src.Subfolders
    tmpMessage = tmpMessage & FolderName & vbNewLine
Next
WScript.Echo tmpMessage

ネタ元