Scripting.FileSystemObject Teil I

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")