asp+fso implementiert Funktionen zum Erkennen der Existenz, Erstellung und Löschung von Dateien oder Ordnern./////////////////////////////// / /////////////////FSO Betrieb///////////////////////////// //// /////
'Überprüfen Sie, ob der Ordner existiert
Funktion FolderExits(Ordner)
Folder=Server.Mappath(Ordner)
Setze FSO= Server.CreateObject(Scripting.FileSystemObject)
IF FSO.FolderExists(Folder) Dann
FolderExits=true
Anders
FolderExits=false
Beenden Sie IF
Funktion beenden
'Überprüfen Sie, ob die Datei existiert
Funktion FileExits(FileName)
FileName=Server.Mappath(FileName)
Setze FSO= Server.CreateObject(Scripting.FileSystemObject)
IF FSO.FileExists(FileName) Dann
FileExits=true
Anders
FileExits=false
Beenden Sie IF
Funktion beenden
'Ordner erstellen
Funktion CreateFolder(Ordner)
Bei Fehler als nächstes fortfahren
Folder=Server.Mappath(Ordner)
Setze FSO = Server.CreateObject(Scripting.FileSystemObject)
FSO.CreateFolder(Ordner)
wenn err>0 dann
irr.klar
CreateFolder=False
anders
CreateFolder=True
Ende wenn
Funktion beenden
'Datei erstellen
Funktion CreateFile(FileName,Content)
Bei Fehler als nächstes fortfahren
FileName=Server.Mappath(FileName)
Setze FSO = Server.CreateObject(Scripting.FileSystemObject)
set fd=FSO.createtextfile(FileName,true)
fd.writeline-Inhalt
wenn err>0 dann
irr.klar
CreateFile=False
anders
CreateFile=True
Ende wenn
Funktion beenden
'Dateien löschen
Funktion DeleteFile(FileName)
Bei Fehler als nächstes fortfahren
Setze FSO = Server.CreateObject(Scripting.FileSystemObject)
wenn FSO.FileExists(FileName), dann
FSO.DeleteFile Dateiname,true
Ende wenn
wenn err>0 dann
irr.klar
DeleteFile=False
anders
DeleteFile=True
Ende wenn
Endfunktion
'Ordner löschen
Funktion DeleteFolder(Ordner)
Bei Fehler als nächstes fortfahren
Ordner=server.MapPath(Ordner)
Setze FSO = Server.CreateObject(Scripting.FileSystemObject)
wenn FSO.FolderExists(Folder), dann
FSO.Deletefolder Ordner,true
Ende wenn
wenn err>0 dann
irr.klar
Ordner löschen = Falsch
anders
Ordner löschen=True
Ende wenn
Endfunktion