Die Codekopie lautet wie folgt:
'===============================================
'Erstellen Sie ein Multi-Level-Verzeichnis, Sie können Root-Verzeichnisse erstellen, das nicht existiert
'Parameter: Der zu erstellende Verzeichnisname kann mehrstufig sein
'Erstellen Sie das Stammverzeichnis des Verzeichnisses beginnt aus dem aktuellen Verzeichnis
'' 'Rufen Sie zum Beispiel an
'' CallCreateMultiFolder ("/Upload/Jumbot/Myphoto/")
'===============================================
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
IFright (createFolder, 1) = "/" Dann
CreateFolder = links (createfolder, len (createFolder) -1)
Endif
CreateFolderArray = split (createFolder, "/")
Fei = 0Toubund (CreateFolderArray)