Ich werde Ihnen den Code teilen, der beim Testen der falschen neuen Webmaster-Website normal verwendet werden kann, und unterstützt die Erstellung von Verzeichnissen auf mehreren Ebenen
Code 1
Funktion CreateMultiFolder (Byval CFolder) Dim ObjfSO, PhCreateFolder, CreateFolderArray, CreateFolder Dim I, II, CreateDFoldersub, PhCreateFolderSub, Blinfo Blinfo = False createFolder = CFOLDER auf dem Fehler bei der nächsten festgelegten. Err.Clear() Exit Function End If If Right(CreateFolder, 1) = "/" Then CreateFolder = Left(CreateFolder, Len(CreateFolder) -1) End If CreateFolderArray = Split(CreateFolder, "/") For i = 0 To UBound(CreateFolderArray) CreateFolderSub = "" For ii = 0 To i CreateFolderSub = CreateFolderSub & CreateFolderArray (ii) & "/" Nächstes phCreateFoldersub = server.mappath (createdFoldersub) Wenn nicht objfSO.FORDEREXISTS (PHREATEFORDERSUB), dann objfso.createFolder (PhCreateFoldersub) end if if if er.
Wie man verwendet:
CreateMultiFolder ("/202003/Tools/")
Code 2, testen Sie OK
'Erstellen Sie automatisch einen Multipol -Verzeichnis. links (thepath, 1) = "/" thepath = rechts (thepath, len (thepath) -1) end ifif rechts (thepath, 1) = "/" thenthepath = links (thepath, len (thepath) -1) End ifthepatharray = split (thepath, "/") für i = 0 bis zu ubund (thepathrarray) createFolderSub1 = createFolderSub1 & thePatharray (i) & "/" createFolderSub = Server.Mappath (createFolderSub1) Wenn nicht fSofo.Folderexists (createFolderSub) thenfSofo.CreateFolder (createFoldersubs) ende IFNEXTIFIFIFIFIFIFIFIFIFIFIFIFIFIFREERREERGE ERESTERREERGEL.CREATREFOSBOSBOSBOSBOSBOSBOWER (CREATEDRODEREXISTER) IFNEXTIFIFIFREERN ERSTORERSUB. ifCreateit = Binfoend -Funktion
Testcode
CreateIt ("/202004/Tools/")
Wenn der obige Code nicht ausgeführt werden kann, prüfen Sie bitte, ob die Berechtigungen des IIS -Laufbenutzers eine Schreibfunktion haben. Während des heutigen Tests kann der Standard -IIS7.5 nicht ausgeführt werden.
Der folgende Implementierungscode ist einfach und zum Lernen geeignet
Wie kann ich feststellen, ob ein Ordner existiert? Wenn es nicht vorhanden ist, erstellt es automatisch Ordner = server.mappath ("//bildess") Setzen Sie fso = createObject ("scripting.FilesystemObject") Wenn fso.FileExists (server.mappath (filepath)) thenRespnse.write ("Was kann noch einmal gebaut werden"). objfso = server.createObject ("scripting.filesystemObject") Wenn objfSo.Folderexists (Server.Mappath (SavePath)) = False thenobjfSo.CreateFolder (Server.Mappath (SavePath)) end ifffolder = script.-Mappath ("/Bildess") set fso = "screctracting) ("/Imagesess ") setze FSO =" screatObject "(" scripting) ("/Bildess") setze = "scripting." scripting.floysSytem ("/Bildess") set fso = "screate) (" setze). fso.FileExists (server.mappath (filepath)) thenRespnse.write ("Was kann doch erstellt werden") elsefso.createfolder (Ordner) End Ifset fso = nichts