DevTrain Startseite SharePoint Camp ? In 5 Tagen zum SharePoint Profi!  
  
  
SUCHEN:  
ARTIKEL ONLINE: 525   

Kategorien
.NET
Datenbanken
Web
XML

Allgemein
Camp
Foren
Events
Persönliche Einstellungen
Registrieren
Prämien Shop
Kontakt
Impressum
Über DevTrain

Autoren


   Autor: Unbekannt nn Artikel Drucken
        
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")

 


DevTrain Camp - Schneller zum .NET 3.5 Developer
 
Verwandte Artikel      Verlinkte Dokumente
    Keine verknüpften Dokumente
    Keine Links vorhanden

  Erfasst am: 14.02.2001
  Gültig bis: 30.03.2001
75 Ratings
Bewertung: 53,1%
schlecht    sehr gut  

 
© Copyright 2007 ppedv AG