Sub EFolder (Nama Folder)
Redupkan FSO
Setel FSO=Server.CreateObject(Scripting.FileSystemObject)
Jika Fso.folderexists(Server.MapPath(FolderName)) Lalu
Tetapkan FSO=Tidak Ada
Keluar dari Sub
Kalau tidak
FSO.CreateFolder(Server.MapPath(Nama Folder))
Akhiri Jika
Tetapkan FSO=Tidak Ada
Akhiri Sub
' ===== ===
Sub ArrayFolder(Jalur,sep)
Redupkan ArrayPath,EPath,newPath
ArrayPath = membagi(Jalur,sep)
jalur baru=
untuk setiap Epath di ArrayPath
jalur baru=Jalur baru&Epath&/
Jalur baru = ganti(Jalur baru,//,/)
EFolder jalur baru
Berikutnya
Akhiri Sub
Folder Array 1/2/3,/