วิธีตรวจสอบว่ามีโฟลเดอร์อยู่หรือไม่มันจะถูกสร้างขึ้นโดยอัตโนมัติ

ฉันจะแบ่งปันรหัสที่สามารถใช้งานได้ตามปกติเมื่อทดสอบเว็บไซต์เว็บมาสเตอร์ใหม่ที่ไม่ถูกต้องและรองรับการสร้างไดเรกทอรีหลายระดับ

รหัส 1

 ฟังก์ชั่น createMultifolder (byval cfolder) dim objfso, phcreatefolder, createFolderArray, createfolder dim i, ii, createFoldersub, phcreatefoldersub, blinfo blinfo = false createFolder = cfolder err.clear () ฟังก์ชั่นทางออกสิ้นสุดถ้าขวา (createFolder, 1) = "/" จากนั้น createFolder = ซ้าย (createFolder, len (createFolder) -1) สิ้นสุดถ้า createFolderArray = split (createFolder, "/") สำหรับ i = 0 to ubound createFolderArray (II) & "/" phCreateFoldersub = server.mappath (createFoldersub) ถ้าไม่ใช่ objfso.folderexists (phcreatefoldersub) จากนั้น objfso.createfolder (phcreatefoldersub) สิ้นสุดลง

วิธีใช้:

createMultifolder ("/202003/tools/")

รหัส 2 ทดสอบตกลง

 'สร้าง Multipole Directory'Code โดยอัตโนมัติโดย JB51 ReterryFunction CreateIt (PATH) DIM FSOFO, CINFO, ThePathArrayDim I, II, BINFOBINFO = FALSETHEPATH = PathSet FSOFO = createObject (Scripting.filesystemobject) ซ้าย (thepath, 1) = "/" thepath = ขวา (thepath, len (thepath) -1) สิ้นสุด ifif ขวา (thepath, 1) = "/" thenhepath = ซ้าย (thepath, len (thepath) -1) สิ้นสุด ifthepatharray = แยก (the path, "/") สำหรับ i = 0 ถึง 0 ถึง Ubund (ThePatharray) CreateFoldersub1 = CreateFoldersub1 & thePatharray (I) & "/" createFoldersub = Server.mappath (createFoldersub1) หากไม่ใช่ fsofo.folderexists ifcreateit = ฟังก์ชัน binfoend

รหัสทดสอบ

CreateIt ("/202004/tools/")

หากรหัสข้างต้นไม่สามารถเรียกใช้ได้โปรดตรวจสอบว่าการอนุญาตของผู้ใช้ IIS Run มีฟังก์ชั่นการเขียนหรือไม่ ในระหว่างการทดสอบวันนี้ IIS7.5 เริ่มต้นไม่สามารถเรียกใช้ได้

รหัสการใช้งานต่อไปนี้เป็นเรื่องง่ายและเหมาะสำหรับการเรียนรู้

 จะตรวจพบได้อย่างไรว่ามีโฟลเดอร์อยู่หรือไม่? หากไม่มีอยู่มันจะสร้างโฟลเดอร์ = เซิร์ฟเวอร์โดยอัตโนมัติ mappath ("/imagess") ตั้งค่า fso = createObject ("scripting.filesystemobject") ถ้า fso.fileexists (server.mappath (filepath)) objfso = server.createObject ("scripting.filesystemobject") ถ้า objfso.folderexists (เซิร์ฟเวอร์. mappath (savepath)) = false thenobjfso.createFolder (server.mappath (savepath) fso.fileexists (server.mappath (filepath)) thenRespnse.write ("สิ่งอื่นสามารถสร้างได้หลังจากทั้งหมด") elsefso.createfolder (โฟลเดอร์) สิ้นสุด ifset fso = ไม่มีอะไรเลย