Copy
フォルダコピー
文法
Folderオブジェクト.Copy Path [Option]
パラメータ
Path : コピー先のパス
Option : 上書き指定
True : 上書きする(デフォルト) / False : 上書きしない
機能説明
サブフォルダを含めてコピーします
使用例
<%
Dim objFs, objFld, i, objFldCol
Set objFs = Server.CreateObject("Scripting.FileSystemObject")
Set objFld = objFs.GetFile("D:\test")
objFld.Copy "D:\test2"
Set objFld = objFs.GetFolder("D:\")
Set objFldCol = objFld.SubFolder
Response.Write objFld.Path & "のファイルを表示
"
For Each i in objFldCol
Response.Write i.Name
Next
'オブジェクトを開放
Set objFldCol = Nothing
Set objFld = Nothing
Set objFs = Nothing
%>
Topへ