4
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
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
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 65423
Url: https://administrator.de/forum/vbscript-textdatei-einlesen-bzw-beschreiben-65423.html
Ausgedruckt am: 22.12.2024 um 21:12 Uhr
4 Kommentare
Neuester Kommentar
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
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
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
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!
Grüße
bastla
... 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.closeGrüße
bastla
