Count
サブフォルダ数取得
文法
Foldersコレクション.Count
機能説明
Foldersコレクションの要素数を取得
(指定したフォルダのサブフォルダ数)
使用例
<%
Dim objFs, objFld, objFldCol
Set objFs = Server.CreateObject("Scripting.FileSystemObject")
Set objFld = objFs.GetFolder("D:\test")
Set objFldCol = objFld.SubFolders
Response.Write "ファイル数 : " & objFldCol.Count & "
"
'オブジェクトを開放
Set objFldCol = Nothing
Set objFld = Nothing
Set objFs = Nothing
%>
Topへ