VBS（VBScript）によるフォルダのファイルタイプを取得する方法を紹介
フォルダのファイルタイプを取得する方法
サンプルソース
（入力）
Dim fs
Dim fn
Set fs = WScript.CreateObject("Scripting.FileSystemObject")
Set fn = fs.GetFolder("e:\folder")
WScript.Echo "ファイルタイプ：" & fn.Type
（出力）
ファイルタイプ：ファイル フォルダー