<%
'Erstellen Sie ein Multi-Level-Verzeichnis, Sie können Root-Verzeichnisse erstellen, das nicht existiert
'Parameter: Der zu erstellende Verzeichnisname kann mehrstufig sein
'Logischer Wert zurückgeben, true erfolgreich, falsch fehl
'Erstellen Sie das Stammverzeichnis des Verzeichnisses beginnt aus dem aktuellen Verzeichnis
'-----------------------------------------------
FunktionscreateMultifolider (ByvalcFolder)
DimobjfSO, PhCreateFolder, CreateFolderArray, Create
Dimi, II, CreatedFoldersub, PhCreateFoldersub, Blinfo
Blinfo = false
CreateFolder = cFolder
OnErrorresumeNext
SetObjfso = server.createObject ("scripting.filesystemObject")
Isterrthen
Err.clear ()
Ausgangsfunktion
Endif
CreateFolder = ersetzen (createFolder, "", "/")
Ifeft (createFolder, 1) = "/" Dann
CreateFolder = rechts (createFolder, len (createFolder) -1)
Endif
IFright (createFolder, 1) = "/" Dann
CreateFolder = links (createfolder, len (createFolder) -1)
Endif
CreateFolderArray = split (createFolder, "/")
Fei = 0Toubund (CreateFolderArray)
CreateFolderSub = ""
Forii = 0toi
CreateFoldersub = createFoldersub & createFolderArray (ii) & "/"
Nächste
PhCreateFoldersub = Server.MAppath (CreateDFolderSub)
IfnotObjfSo.moldeRexists (phCreateFoldersub) dann
OBJFSO.CreateFolder (PhCreateFoldersub)
Endif
Nächste
Isterrthen
Err.clear ()
Anders
Blinfo = true
Endif
CreateMultiFolder = Blinfo
Endfunktion
%>
'Wie man benutzt: