Diese Artikel beschreibt das Scripting.FileSystemObject in Bezug auf einzelne Dateien
- Konstanten
- Datei schreiben
- Datei auslesen über ReadAll
- Datei Zeilenweise auslesen
- prüfen ob Dateien existieren
- Datei löschen
Die restlichen Befehle zum Scripting.FileSystemObject finden Sie im Artikel Scripting.FileSystemObject Teil II
in ASP müssen nachfolgende Konstanten gesetzt werden bzw. es kann auch über den Index gearbeitet werden.
Const ForAppending = 8 'Daten in File anhängen
Const ForReading = 1 'Dateiinhalte auslesen
Const ForWriting = 2 'Dateiinhalte schreiben |
Folgende Konstanten können beim öffnen einer Datei zusätzlich angegeben werden:
Const TristateFalse = 0 'Öffnet die Datei als ASCII.
Const TristateMixed = -2 'Öffnet die Datei mit dem Systemstandard.
Const TristateTrue = -1 'Öffnet die Datei als Unicode.
Const TristateUseDefault = -2 |
Instantiieren des scripting.filesystemobject für den Zugriff auf das Dateisystem
| set Datei = server.CreateObject("scripting.filesystemobject") |
Datei schreiben
set schreibeDatei = Datei.CreateTextFile(server.MapPath("textfile.txt"),ForWriting)
schreibeDatei.write "->Das ist der Text der Datei" ' Schreibt in die Datei
schreibeDatei.writeLine "->Dieser Text wird angehängt" 'Hängt einen Textblock mit Zeilenschaltung an
schreibeDatei.writeLine "->Das ist Zeile3" 'Hängt einen Textblock mit Zeilenschaltung an
schreibeDatei.close 'Schließen der Datei
set schreibeDatei = nothing 'Objekt zerstören |
Auslesen der kompletten Datei über ReadAll
| set leseDatei = Datei.OpenTextFile(server.MapPath("textfile.txt"),ForReading)
Response.write replace(leseDatei.readAll,vblf,"<br>")
leseDatei.close 'Schließen der Datei
set leseDatei = nothing 'Objekt zerstören |
Auslesen der kompletten Datei über Do Loop
set leseDatei = Datei.OpenTextFile(server.MapPath("textfile.txt"),ForReading)
Do until leseDatei.AtEndOfStream 'komplette Datei durchlaufen
Response.write leseDatei.ReadLine & "<br>"
Loop
leseDatei.close 'Schließen der Datei
set leseDatei = nothing 'Objekt zerstören |
Prüfen ob Datei existiert
if Datei.FileExists(server.MapPath("textfile2.txt")) = true then
Response.Write "Datei existiert schon"
Response.End
else
%><br><br>Verschieben der Datei<hr><%
Datei.MoveFile server.MapPath("textfile.txt"),server.MapPath("textfile2.txt")
end if |
Löschen der Datei
| Datei.DeleteFile server.MapPath("textfile2.txt") |