VBScriptでディレクトリ内のサブディレクトリ名を取得する方法

【目的】
VBScriptでディレクトリ内のサブディレクトリ名の一覧を取得します。



【手順１】
１．以下の様に、「わわわ」「ををを」「んんん」を作成しておきます。

【手順２】
１．「ディレクトリの内のサブディレクトリ名を取得.vbs」というファイルを作成し、以下の内容を記述。

Set fso = CreateObject("Scripting.FileSystemObject")
Set workDir = fso.GetFolder(".")

For Each d in workDir.SubFolders
    WScript.Echo "サブディレクトリ名＝" & d.Name
Next

【手順３】
１．「ディレクトリの内のサブディレクトリ名を取得.vbs」を「VBScriptをCUI版で動かす方法」で実行。
２．以下の様に表示されれば成功です。

以上です。