Salinan kode adalah sebagai berikut:
<%
FunctionCopyMyFolder (FolderName, FolderPath)
sfolder = server.mappath (FolderName)
Ofolder = Server.Mappath (FolderPath)
setFSO = server.CreateObject ("Scripting.FilesystemObject")
iffso.folderexists (server.mappath (folderName)) lalu periksa jika folder asli ada
iffso.folderexists (server.mappath (folderpath)) kemudian periksa jika folder target ada
fso.copyfoldersfolder, Ofolder
Folder lain yang diterjemahkan dibuat jika tidak ada
CreateNewFolder = server.mappath (folderPath)
fso.createFolder (CreateNewFolder)
fso.copyfoldersfolder, Ofolder
Endif
Copymyfolder = "Salin folder [" & server.mappath (folderName) & "] ke [" & server.mappath (folderpath) & "] berhasil!"
Kalau tidak
Copymyfolder = "Kesalahan, folder asli [" & sfolde & "] tidak ada!"
Endif
setfso = tidak ada
Fungsi endfungsi
FolderName = "2006" 'Folder Asli
FolderPath = "2008" 'Folder tujuan
response.write "& copymyfolder (foldername, folderpath) &" "'Salin semua konten di folder 2006 ke folder 2008 dan kembalikan hasilnya
%>