การคัดลอกรหัสมีดังนี้:
-
'สร้างไดเรกทอรีหลายระดับคุณสามารถสร้างไดเรกทอรีรูทที่ไม่มีอยู่จริง
'พารามิเตอร์: ชื่อไดเรกทอรีที่จะสร้างสามารถเป็นหลายระดับ
'สร้างไดเรกทอรีรากของไดเรกทอรีเริ่มต้นจากไดเรกทอรีปัจจุบัน
'' 'การโทร
'' CallCreateMultifolder ("/อัปโหลด/jumbot/myphoto/")
-
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
ifright (createFolder, 1) = "/" แล้ว
createFolder = ซ้าย (createFolder, len (createFolder) -1)
endif
createFolderArray = split (createFolder, "/")
fori = 0toubound (createFolderArray)