Salinan kode adalah sebagai berikut:
'===========================================
'Buat direktori multi-level, Anda dapat membuat direktori root yang tidak ada
'Parameter: Nama direktori yang akan dibuat, dapat berupa multi-level
'Buat direktori root direktori dimulai dari direktori saat ini
'' 'Call misalnya
'' CallCreateMultifolder ("/Unggah/Jumbot/MyPhoto/")
'===========================================
FunctionCreateMultifolder (ByValcfolder)
DimoBjfso, phcreateFolder, createFolderArray, createFolder
Dimi, II, CreateFoldersubs, PhcreateFoldersub, Blinfo
Blinfo = false
CreateFolder = cfolder
OnerrorresumeNext
SetObjfso = server.CreateObject ("Scripting.FilesystemObject")
Iferrthen
Err.clear ()
Fungsi keluar
Endif
Ifright (createFolder, 1) = "/" lalu
CreateFolder = Left (CreateFolder, Len (CreateFolder) -1)
Endif
CreateFolderArray = split (createFolder, "/")
Fori = 0toubound (createFolderArray)