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

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



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

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

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

WScript.Echo "ディレクトリ内のサブディレクトリ数＝" & workDir.SubFolders.Count

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

以上です。