نسخة الكود كما يلي:
<٪
FunctionCopymyfolder (اسم المجلد ، المجلد)
sfolder = server.mappath (اسم المجلد)
Ofolder = server.mappath (FolderPath)
setfso = server.createObject ("scripting.filesystemObject")
iffso.folderexists (server.mappath (المجلد)) ثم إذا كان المجلد الأصلي موجود
iffso.folderexists (server.mappath (FolderPath)) ثم في حالة وجود المجلد الهدف
fso.copyfoldersfolder ، Ofolder
تم إنشاء مجلد آخر إذا لم يكن موجودًا
CreateNewFolder = server.mappath (FolderPath)
fso.createfolder (CreateNewFolder)
fso.copyfoldersfolder ، Ofolder
Endif
copymyfolder = "انسخ المجلد [" & server.mappath (foldername) و "] إلى [" & server.mappath (folderpath) و "] بنجاح!"
آخر
copymyfolder = "خطأ ، المجلد الأصلي [" & sfolde & "] غير موجود!"
Endif
setfso = لا شيء
الوظيفية
المجلد = "2006" المجلد الأصلي
FORDDERPTHAT = "2008" المجلد
استجابة. write "& copymyfolder (FolderName ، FolderPath) و" "" نسخ جميع المحتويات في المجلد 2006 إلى المجلد 2008 وإرجاع النتيجة
٪>