المجلد الفرعي (اسم المجلد)
خافت FSO
تعيين FSO=Server.CreateObject(Scripting.FileSystemObject)
إذا كان Fso.folderexists(Server.MapPath(FolderName)) إذن
تعيين FSO = لا شيء
الخروج من الباطن
آخر
FSO.CreateFolder(Server.MapPath(FolderName))
نهاية إذا
تعيين FSO = لا شيء
نهاية الفرعية
'======================================================================== ============================================================
مجلد الصفيف الفرعي (المسار، سبتمبر)
خافت ArrayPath، Epath، newPath
ArrayPath = تقسيم (مسار، سبتمبر)
مسار جديد=
لكل Epath في ArrayPath
newPath=newPath&Epath&/
مسار جديد = استبدال (مسار جديد،//،/)
Efolder newPath
التالي
نهاية الفرعية
مجلد المصفوفة 1/2/3,/