Datei einlesen und Inhalt zurück geben

Language: Deutsch
Programming Language: VBScript
Published by: Thomas
Last Update: 4/27/2006
Views: 1145

Description

Liest eine Textdatei ein und liefert deren Inhalt zurück.

Code

Display line numbers

1 Function ReadFile(strDateiname) 'Liest eine Datei ein und gibt den Inhalt zurück 2 Const fsForReading = 1 3 strDateiname = Server.MapPath(strDateiname) 4 5 Dim strInhalt, strInhaltHTML 6 Dim objFs ' FileSystemObject Objekt 7 Dim objTextStream ' Textstream Objekt 8 9 Set objFs = CreateObject("Scripting.FileSystemObject") 10 11 On Error Resume Next 12 Set objTextStream = objFs.OpenTextFile(strDateiname, fsForReading) 13 If Err.Number <> 0 Then 14 strInhalt="" 15 Else 16 strInhalt = objTextStream.ReadAll 17 End If 18 objTextStream.Close 19 On Error Goto 0 20 Set objTextStream = Nothing 21 Set objFs = Nothing 22 ReadFile = strInhalt 23 End Function

Datei einlesen und Inhalt zurück geben

Description

Code

No comments avaiable

Add a comment