CopyFolder
フォルダコピー
文法
FileSystemObjectオブジェクト.CopyFolder From, To [,Option]
パラメータ
From : コピー元フォルダ名
To : コピー先パス
Option : 上書き指定
上書き(デフォルト) : True/上書きしない : False
機能説明
フォルダをコピー
ワイルドカード使用可
コピー先が無い場合は作成されます
コピー先パスは「C:\Inetpub\wwwroot\」のように〜\までを指定すると指定したフォルダにコピーします。
コピー先を「〜\」で指定した場合はフォルダが存在している必要があります
使用例
<![CDATA[
<%
Dim objFs, objFld, objFlCol
Set objFs = Server.CreateObject("Scripting.FileSystemObject")
objFs.CopyFolder "D:\test", "D:\test2\"
Set objFld = objFs.GetFolder("D:\test")
Set objFlCol = objFld.Files
Response.Write "コピー元<br>" & vbCrlf
For Each i in objFlCol
Response.Write i.Name & "<br>" & vbCrlf
Next
Set objFld = objFs.GetFolder("D:\test2\test")
Set objFlCol = objFld.Files
Response.Write "コピー先<br>" & vbCrlf
For Each i in objFlCol
Response.Write i.Name & "<br>" & vbCrlf
Next
'オブジェクトを開放
Set objFld = Nothing
Set objFlCol = Nothing
Set objFs = Nothing
%>
]]>
Topへ