โฟลเดอร์ย่อย (ชื่อโฟลเดอร์)
ดิม FSO
ตั้งค่า FSO=Server.CreateObject(Scripting.FileSystemObject)
ถ้า Fso.folderexists(Server.MapPath(FolderName)) แล้ว
ตั้งค่า FSO=ไม่มีอะไร
ออกจากย่อย
อื่น
FSO.CreateFolder (เซิร์ฟเวอร์ MapPath (ชื่อโฟลเดอร์))
สิ้นสุดถ้า
ตั้งค่า FSO=ไม่มีอะไร
จบหมวดย่อย
-
ArrayFolder ย่อย (เส้นทาง ก.ย.)
Dim ArrayPath, EPath, newPath
ArrayPath = แยก (เส้นทาง, กันยายน)
เส้นทางใหม่=
สำหรับแต่ละ Epath ใน ArrayPath
newPath=newPath&Epath&/
newPath = แทนที่ (newPath, //,/)
EFolder เส้นทางใหม่
ต่อไป
จบหมวดย่อย
อาร์เรย์โฟลเดอร์ 1/2/3,/