<%
'Buat direktori multi-level, Anda dapat membuat direktori root yang tidak ada
'Parameter: Nama direktori yang akan dibuat, dapat berupa multi-level
'Mengembalikan nilai logis, benar berhasil, kegagalan palsu
'Buat direktori root direktori dimulai dari direktori saat ini
'---------------------------------------------------
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
CreateFolder = ganti (createFolder, "", "/")
Ifleft (createFolder, 1) = "/" lalu
CreateFolder = Right (CreateFolder, Len (CreateFolder) -1)
Endif
Ifright (createFolder, 1) = "/" lalu
CreateFolder = Left (CreateFolder, Len (CreateFolder) -1)
Endif
CreateFolderArray = split (createFolder, "/")
Fori = 0toubound (createFolderArray)
CreateFoldersub = ""
Forii = 0toi
CreateFoldersub = CreateFoldersUB & CreateFolderArray (II) & "/"
Berikutnya
PhcreateFoldersub = server.mappath (createFoldersubs)
Ifnotobjfso.folderexists (phCreateFoldersUB) lalu
objfso.createFolder (phcreateFoldersubs)
Endif
Berikutnya
Iferrthen
Err.clear ()
Kalau tidak
Blinfo = true
Endif
CreateMultifolder = blinfo
Fungsi endfungsi
%>
'Cara menggunakan: