object

Folders コレクションの要素の数を返します。
Folders コレクションにはフォルダ内のすべての Folder オブジェクトが含まれています。
このプロパティは読み取り専用です。

Set objFso = Serrver.CreateObject("Scripting.FileSystemObject")

Set objFolder = objFso.GetFolder("c:\test")

Response.Write  objFolder.SubFolders.Count

Add｜Item｜