In FSO gibt es eine Methode namens CreateFolder, aber diese Methode kann nur dann einen neuen Ordner erstellen, wenn der übergeordnete Ordner vorhanden ist. Daher habe ich eine Funktion geschrieben, die automatisch Ordner auf mehreren Ebenen erstellt und statische Seiten usw. generiert. Das ist sehr praktisch Verwendung
:
'--------------------------------
' Bestimmte mehrstufige Ordner automatisch erstellen
'strPath ist der absolute Pfad
' Bitte behalten Sie sich das Urheberrecht für Zitate vor
' von im286_Anjer
'2005-4-3
Funktion AutoCreateFolder(strPath) ' Als Boolescher Wert
Bei Fehler Weiter fortsetzen
Dim astrPath, ulngPath, i, strTmpPath
Dim objFSO
If InStr(strPath, "") <=0 Or InStr(strPath, ::) <= 0 Then
AutoCreateFolder = False
Exit-Funktion
Ende wenn
Setze objFSO = Server.CreateObject("Scripting.FileSystemObject")
Wenn objFSO.FolderExists(strPath) Dann
AutoCreateFolder = True
Exit-Funktion
Ende wenn
astrPath = Split(strPath, "")
ulngPath = UBound(astrPath)
strTmpPath = ""
Für i = 0 bis ulngPath
strTmpPath = strTmpPath & astrPath(i) & ""
Wenn nicht objFSO.FolderExists(strTmpPath) Dann
'Erstellen
objFSO.CreateFolder(strTmpPath)
Ende wenn
Nächste
Setze objFSO = Nichts
Wenn Err = 0, dann
AutoCreateFolder = True
Anders
AutoCreateFolder = False
Ende wenn
Funktion beenden
Aufrufende Methode:
MyPath = "C:abc"
Wenn AutoCreateFolder(MyPath) Dann
Response.Write „Ordner erfolgreich erstellt“
Anders
Response.Write „Fehler beim Erstellen des Ordners“
Ende wenn