Was sind die häufig verwendeten Dateioperationsfunktionen von FileSystem-Objekten?
1. Wurzel
Funktionsformat root()
Die Funktionsbeschreibung gibt eine Pfad-String-Variable zurück
Anwendungscode „Beispielzeichenfolge = c:/intels/jingcaichunfeng/“
Öffentliche Funktion root()
root = Request.ServerVariables(Appl_Physical_Path)
Funktion beenden
2. URL
Funktionsformat url()
Die Funktionsbeschreibung gibt eine URL-Stringvariable zurück
Anwendungscode „Beispielzeichenfolge = http://www.intels.net/filesys.asp“
Öffentliche Funktions-URL()
URL =http://&Request.ServerVariables(Server_Name)
&Request.ServerVariables(Script_Name)
Funktion beenden
3. mkdir
Funktionsformat mkdir(DIrName)
Funktionsbeschreibung Erstellen Sie ein Verzeichnis und geben Sie Informationen zurück
AnwendungscodeÖffentliche Funktion mkdir(xVar)
Setze Sys = Server.CreateObject(Scripting.FileSystemObject)
Wenn Sys.FolderExists( xVar ) Dann
msg =Leider existiert das Verzeichnis bereits!
Anders
Sys.CreateFolder(xVar)
msg =Herzlichen Glückwunsch, das Verzeichnis wurde erfolgreich erstellt!
Ende wenn
Stellen Sie Sys=Nothing ein
mkdir = msg
Funktion beenden
4.rmdir
Funktionsformat rmdir(DirName)
FunktionsbeschreibungLöschen Sie ein Verzeichnis und geben Sie Informationen zurück
AnwendungscodeÖffentliche Funktion rmdir(xVar)
Setze Sys = Server.CreateObject(Scripting.FileSystemObject)
Wenn Sys.FolderExists( xVar ) Dann
Sys.DeleteFolder(xVar)
msg =Herzlichen Glückwunsch, das Verzeichnis wurde erfolgreich gelöscht!
Anders
msg =Leider wurde das Verzeichnis noch nicht erstellt!
Ende wenn
Stellen Sie Sys=Nothing ein
rmdir = msg
Funktion beenden
5. isdir
Funktionsformat isdir(DirName)
Funktionsbeschreibung Prüft, ob ein Verzeichnis existiert und gibt Informationen zurück
AnwendungscodeÖffentliche Funktion isdir(xVar)
Setze Sys = Server.CreateObject(Scripting.FileSystemObject)
Wenn Sys.FolderExists( xVar ) Dann
msg = True
Anders
msg = Falsch
Ende wenn
Stellen Sie Sys=Nothing ein
isdir = msg
Funktion beenden
6.cpdir
Funktionsformat cpdir(DirName, Destination, OverWrite)
Funktionsbeschreibung: Ordner kopieren und Informationen zurückgeben
AnwendungscodeÖffentliche Funktion cpdir(xVar, yVar, zVar)
Setze Sys = Server.CreateObject(Scripting.FileSystemObject)
Wenn Sys.FolderExists( xVar ) Dann
Sys.CopyFolder xVar, root&yVar, zVar
msg =Herzlichen Glückwunsch, das Kopieren des Verzeichnisses war erfolgreich!
Anders
msg =Leider wurde das gesuchte Verzeichnis nicht gefunden!
Ende wenn
Stellen Sie Sys=Nothing ein
cpdir=msg
Funktion beenden
7. mvdir
Funktionsformat mvdir(DirName, Destination)
Funktion Beschreibung Einen Ordner verschieben und Informationen zurückgeben
AnwendungscodeÖffentliche Funktion mvdir(xVar, yVar)
Setze Sys = Server.CreateObject(Scripting.FileSystemObject)
Wenn Sys.FolderExists( xVar ) Dann
Sys.MoveFolder xVar, root&yVar
msg =Herzlichen Glückwunsch, das Verzeichnis wurde verschoben!
Anders
msg =Leider wurde das gesuchte Verzeichnis nicht gefunden!
Ende wenn
Stellen Sie Sys=Nothing ein
mvdir = msg
Funktion beenden
8.isfile
Funktionsformat isfile(FileName)
Funktionsbeschreibung: Überprüfen Sie, ob die Datei vorhanden ist, und geben Sie Informationen zurück
AnwendungscodeÖffentliche Funktion isfile(xVar)
Setze Sys = Server.CreateObject(Scripting.FileSystemObject)
Wenn Sys.FileExists( xVar ) Dann
msg = True
Anders
msg = Falsch
Ende wenn
Stellen Sie Sys=Nothing ein
isfile = msg
Funktion beenden
9. wfile
Funktionsformat wfile(FileName, OverWrite, String)
Die Funktionsbeschreibung schreibt einen String in eine Datei und gibt Informationen zurück
AnwendungscodeÖffentliche Funktion wfile(xVar, yVar, zVar)
Setze Sys = Server.CreateObject(Scripting.FileSystemObject)
Wenn yVar Dann
Setze Txt = Sys.OpenTextFile(xVar, 2)
Txt.Write(zVar)
Txt.Schließen
msg =Herzlichen Glückwunsch, die Datei wurde erfolgreich erstellt und gespeichert!
Anders
Wenn Sys.FileExists( xVar ) Dann
msg =Leider existiert die Datei bereits!
Ende wenn
Stellen Sie Sys=Nothing ein
wfile=msg
Funktion beenden
10. R-Datei
Funktionsformat rfile(FileName)
Funktionsbeschreibung liest eine Datei und gibt Informationen zurück
AnwendungscodeÖffentliche Funktion rfile(xVar)
Setze Sys = Server.CreateObject(Scripting.FileSystemObject)
Wenn Sys.FileExists( xVar ) Dann
Setze Txt = Sys.OpenTextFile(xVar, 1)
msg = Txt.ReadAll
Txt.Schließen
Anders
msg =Leider existiert die Datei nicht!
Ende wenn
Stellen Sie Sys=Nothing ein
rfile=msg
Funktion beenden
11. eine Datei
Funktionsformat afile(FileName, String)
Funktionsbeschreibung Fügt einer Datei eine Zeichenfolge hinzu und gibt die Informationen zurück
AnwendungscodeÖffentliche Funktion afile(xVar, zVar)
Setze Sys = Server.CreateObject(Scripting.FileSystemObject)
Wenn Sys.FileExists( xVar ) Dann
Setze Txt = Sys.OpenTextFile(xVar, 8)
Txt.Write(zVar)
Txt.Schließen
msg =Herzlichen Glückwunsch, die Datei wurde erfolgreich hinzugefügt und gespeichert!
Anders
msg =Leider existiert die Datei nicht!
Ende wenn
Stellen Sie Sys=Nothing ein
afile = msg
Funktion beenden
12.cpfile
Funktionsformat cpfile(FileName, Destination, OverWrite)
Funktionsbeschreibung: Eine Datei kopieren und Informationen zurückgeben
AnwendungscodeÖffentliche Funktion cpfile(xVar, yVar, zVar)
Setze Sys = Server.CreateObject(Scripting.FileSystemObject)
Wenn Sys.FileExists( xVar ) Dann
Sys.CopyFile xVar, root&yVar, zVar
msg =Herzlichen Glückwunsch, die Datei wurde erfolgreich kopiert!
Anders
msg =Leider ist das Kopieren der Datei fehlgeschlagen!
Ende wenn
Stellen Sie Sys=Nothing ein
cpfile = msg
Funktion beenden
13. MV-Datei
Funktionsformat mvfile(Dateiname, Ziel)
Funktionsbeschreibung Eine Datei verschieben und Informationen zurückgeben
AnwendungscodeÖffentliche Funktion mvfile(xVar, yVar)
Setze Sys = Server.CreateObject(Scripting.FileSystemObject)
Wenn Sys.FileExists( xVar ) Dann
Sys.MoveFile xVar, root&yVar
msg =Herzlichen Glückwunsch, die Datei wurde erfolgreich verschoben!
Anders
msg =Leider ist das Verschieben der Datei fehlgeschlagen!
Ende wenn
Stellen Sie Sys=Nothing ein
mvfile = msg
Funktion beenden
14.rm-Datei
Funktionsformat rmfile(FileName)
FunktionsbeschreibungEine Datei löschen und Informationen zurückgeben
AnwendungscodeÖffentliche Funktion rmfile(xVar)
Setze Sys = Server.CreateObject(Scripting.FileSystemObject)
Wenn Sys.FileExists( xVar ) Dann
Sys.DeleteFile(xVar)
msg =Herzlichen Glückwunsch, die Datei wurde erfolgreich gelöscht!
Anders
msg =Leider ist das Löschen der Datei fehlgeschlagen!
Ende wenn
Stellen Sie Sys=Nothing ein
rmfile = msg
Funktion beenden