Add
フォルダ追加
文法
Foldersコレクション.Add(Name)
パラメータ
Name : フォルダ名
機能説明
Foldersコレクションの要素を追加
(指定したフォルダを追加)
使用例
<![CDATA[
<%
Dim objFs, objFld, objFldCol, i
Set objFs = Server.CreateObject("Scripting.FileSystemObject")
Set objFld = objFs.GetFolder("D:\")
Set objFldCol = objFld.SubFolders
objFld.Add("test3")
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へ