コードコピーは次のとおりです。
<％
functioncopymyfolder（foldername、folderpath）
sfolder = server.mappath（foldername）
ofolder = server.mappath（folderpath）
setFSO = server.createObject（ "Scripting.filesystemObject"）
iffso.folderexists（server.mappath（foldername））その後、元のフォルダーが存在する場合はチェックします
iffso.folderexists（server.mappath（folderpath））その後、ターゲットフォルダーが存在する場合はチェックします
fso.copyfoldersfolder、ofolder
存在しない場合は、else'destinationフォルダーが作成されます
createNewFolder = server.mappath（folderpath）
fso.createfolder（createNewFolder）
fso.copyfoldersfolder、ofolder
endif
copymyfolder = "フォルダー["＆server.mappath（foldername）＆ "]に[＆server.mappath（folderpath）＆"]に正常にコピーします！ "
それ以外
CopyMyFolder = "エラー、元のフォルダー["＆sfolde＆ "]は存在しません！」
endif
setfso =何もない
エンド機能
foldername = "2006" '元のフォルダー
FolderPath = "2008" '宛先フォルダー
Response.Write "＆CopymyFolder（foldername、folderpath）＆" "'フォルダー2008にすべてのコンテンツをフォルダー2008にコピーし、結果を返します
％>