VBScript - Textdatei einlesen bzw. beschreiben

Hallo Leute!

Ich würde gerne ein VBScript so abändern, das anstatt bei einem Fehler eine MSGBOX erscheint, der Fehler an eine Texdatei angehängt wird.

IST-Zustand:
If err.Number <> 0 Then
MsgBox "Fehler2: " & err.Number & " " & err.Description
err.Clear

Meine Frage lautet nun, wie öffne ich eine Textdatei in VBS und beschreibe diese (ich kanns leider nur in VB)

Vielen Dank

MFG heyneb

Please also mark the comments that contributed to the solution of the article

Content-Key: 65423

Url: https://administrator.de/contentid/65423

Printed on: April 25, 2024 at 19:04 o'clock

4 Comments

Latest comment

Set fso = CreateObject("Scripting.FileSystemObject")
Set oFile = fso.OpenTextFile("C:\log.txt",8,true)
If err.Number <> 0 Then
oFile.WriteLine "Fehler2: " & err.Number & " " & err.Description
err.Clear
oFile.close

Wow! das funktioniert!!

Vielen Dank du warst mir eine große Hilfe!

Gruß Heyneb

Nochmal ne doofe Frage:

Wenn ich, wenn kein Fehler aufgetreten ist, auch eine meldung in die Textdatei schreiben will, welchen error-Level muss ich dann angeben?

MFG Heyneb

Hallo ][Heyneb!

... welchen error-Level muss ich dann angeben?

Entweder auf "err.Number = 0" prüfen oder einfach so:

Set fso = CreateObject("Scripting.FileSystemObject")  
Set oFile = fso.OpenTextFile("C:\log.txt",8,true)  
If err.Number <> 0 Then
    oFile.WriteLine "Fehler2: " & err.Number & " " & err.Description  
    err.Clear
Else
    oFile.WriteLine "Kein Fehler aufgetreten."   
End If
oFile.close

Grüße
bastla

German closed solved Question VB for Applications Development

Hotly discussed

Check of ZFW Firewallgleixnerd - 5 Comments