Cara mendeteksi apakah ada folder atau tidak, itu akan dibuat secara otomatis.

Penulis：Eve Cole Waktu Pembaruan：2025-03-31 02:32:01

Saya akan membagikan kepada Anda kode yang dapat digunakan secara normal saat menguji situs web webmaster baru yang salah, dan mendukung pembuatan direktori multi-level

Kode 1

 Function CreateMultiFolder(ByVal CFolder) Dim objFSO, PhCreateFolder, CreateFolderArray, CreateFolder Dim i, ii, CreateFolderSub, PhCreateFolderSub, BlInfo BlInfo = False CreateFolder = CFolder On Error Resume Next Set objFSO = Server.CreateObject("Scripting.FileSystemObject") If Err Then Err.Clear() Keluar dari fungsi akhir jika jika benar (createFolder, 1) = "/" kemudian createFolder = left (createFolder, len (createFolder) -1) end if createFolderArray = split (createFolder, "/") untuk i = 0 untuk ubol (createFolderArray) createFolderubsub = "" untuk ii = 0 ke ii) "createFolderArray) CreateFolderub =" "untuk ii = 0 ke ii)" createFolderArder) PHCreateFoldersUb berikutnya = server.mappath (createFoldersub) jika tidak objfso.folderexists (phCreateFoldersub) maka objfso.createFolder (phCreateFolderSub) berakhir jika selanjutnya jika err.clear () else blinfo = end true end jika createMultifolder = blinse end function () else blinfo = true end jika createMultifolder = blinse end end.clear ()

Bagaimana menggunakan:

CreateMultifolder ("/202003/Tools/")

Kode 2, uji oke

 'Secara otomatis membuat kode direktori Multipole oleh JB51 reterryfunction createIt (Path) redup fsofo, cinfo, thePathArrayDim i, ii, binfobinfo = falsetHePath = pathset fsofo = "" ifePathy ("ifePath," ifePath, "ifePath," ifePath, "ifePath," ifePath, "ifePath," ifePath, "" ifeDeRED ("ifePATHETPATH") ifeTEpath ("scriptath") ifeRErtEpath ") ifeRErtEpath (" ifePath, "" ifeDeRErtEpath ") Kiri (THEPATH, 1) = "/" THEPATH = Kanan (THEPATH, LEN (THEPATH) -1) Akhiri IFIF Right (ThePath, 1) = "/" Thenthepath = Kiri (THEPATH, LEN (THEPATH) -1) Akhiri IfThePatharray = split (ThePath, "/") untuk i = 0 Ubund (ThePathArray) CreateFoldersUb1 = CreateFoldersUB1 & ThePathArray (i) & "/" CreateFoldersub = Server.Mappath (CreateFoldersUB1) Jika bukan fsofo.FolderExists (CreateFoldersub) TheneRErErErErder. ifcreateit = fungsi binfoend

Kode uji

createit ("/202004/Tools/")

Jika kode di atas tidak dapat dijalankan, silakan periksa apakah izin dari pengguna yang dijalankan IIS memiliki fungsi tulis. Selama tes hari ini, IIS7.5 default tidak dapat dijalankan.

Kode implementasi berikut ini sederhana dan cocok untuk belajar

 Bagaimana cara mendeteksi apakah ada folder? Jika tidak ada, itu akan secara otomatis membuat folder = server.mappath ("/imagess") set fso = createObject ("skrip.filesystemObject") jika fso.fileexists (server.mappath (filepath)) thenrespnse.write ("Apa lagi yang dapat dibangun setelah semua") elsefo.creaTeFerEfeder ("Apa lagi yang bisa dibangun setelah semua") elsefo.creaTeFerEfeder. objfso = server.createObject ("scripting.filesystemObject") jika objfso.folderexists (server.mappath (savePath)) = false thenobjfso.createFolder (server.mappath (savePath)) end ifffolder = server.mappath ("/imagess") set fso = fso.fileexists (server.mappath (filepath)) thenRespnse.write ("Apa lagi yang bisa dibangun setelah semua") elsefso.createFolder (folder) end ifset fso = tidak ada