ฟังก์ชั่นที่สร้างไดเรกทอรีหลายระดับโดยอัตโนมัติ

-

'สร้างไดเรกทอรีหลายระดับคุณสามารถสร้างไดเรกทอรีรูทที่ไม่มีอยู่จริง

'พารามิเตอร์: ชื่อไดเรกทอรีที่จะสร้างสามารถเป็นหลายระดับ

'ส่งคืนค่าโลจิคัล True ประสบความสำเร็จเท็จล้มเหลว

'สร้างไดเรกทอรีรากของไดเรกทอรีเริ่มต้นจากไดเรกทอรีปัจจุบัน

-

FunctionCreateMultifolder (byvalcfolder)

dimobjfso, phcreatefolder, createFolderArray, createFolder

dimi, II, createFoldersub, phcreatefoldersub, blinfo

blinfo = false

createFolder = cfolder

onerrorresumenext

setObjfso = server.createObject ("scripting.filesystemobject")

Iferrthen

err.clear ()

exitfunction

endif

createFolder = แทนที่ (createFolder, "", "/")

ifleft (createFolder, 1) = "/" แล้ว

createFolder = Right (CreateFolder, Len (CreateFolder) -1)

endif

ifright (createFolder, 1) = "/" แล้ว

createFolder = ซ้าย (createFolder, len (createFolder) -1)

endif

createFolderArray = split (createFolder, "/")

fori = 0toubound (createFolderArray)

createFoldersub = ""

forii = 0toi

createFoldersub = createFoldersub & createFolderArray (II) & "/"

ต่อไป

phcreateFoldersub = server.mappath (createFoldersub)

ifnotobjfso.folderexists (phcreatefoldersub) จากนั้น

objfso.createfolder (phcreatefoldersub)

endif

ต่อไป

Iferrthen

err.clear ()

อื่น

blinfo = true

endif

createMultifolder = blinfo

endfunction

-

'วิธีใช้: