SubFolders
サブフォルダ情報取得
文法
Folderオブジェクト.SubFolders
機能説明
サブフォルダ情報をFoldersコレクションで取得
使用例
<![CDATA[
<%
Dim objFs, objFl, objFld, i, objFldCol
Set objFs = Server.CreateObject("Scripting.FileSystemObject")
Set objFld = objFs.GetFolder("D:\test")
Set objFldCol = objFld.SubFolder
'パターン１
Response.Write objFldCol.Item("test1").Name & "<br><br>" & vbCrlf
'パターン２
Set objFl = objFldCol.Item("test1").
Response.Write objFl.Name & "<br><br>" & vbCrlf
'パターン３
For Each i in objFldCol
Response.Write i.Name & "<br>" & vbCrlf
Next
'オブジェクトを開放
Set objFldCol = Nothing
Set objFld = Nothing
Set objFl = Nothing
Set objFs = Nothing
%>
]]>
Topへ