نسخة الكود كما يلي:
'=========================================
"إنشاء دليل متعدد المستويات ، يمكنك إنشاء دليل جذر غير موجود
'المعلمة: اسم الدليل المراد إنشاؤه ، يمكن أن يكون متعدد المستويات
"إنشاء دليل الجذر للدليل يبدأ من الدليل الحالي
دعوة على سبيل المثال
'' callCreateMultifolder ("/upload/jumbot/myphoto/")
'=========================================
وظيفة createMultifolder (byvalcfolder)
Dimobjfso ، phcreatefolder ، CreateFolderArray ، CreateFolder
Dimi ، II ، creatfoldersub ، phcreatefoldersub ، blinfo
blinfo = خطأ
CreateFolder = coLdder
onerrorresumenext
setobjfso = server.createBject ("scripting.filesystemObject")
iferrthen
err.clear ()
exitfunction
Endif
ifright (createfolder ، 1) = "/" ثم
CreateFolder = Left (CreateFolder ، Len (CreateFolder) -1)
Endif
CreateFolderArray = split (createfolder ، "/")
fori = 0toubound (CreateFolderArray)