VBS Such Script bricht ab
Hallo das such script bricht immer mit der Fehlermeldung
Zeile 9
Zeichen 1
Eingabe hinter Dateiende
Code: 800A003E
Laufzeitfehler
Ab.
Set fso = CreateObject("Scripting.FileSystemObject")
Quelle = "I:\XXX\log\client"
Typ = LCase("txt")
Ziel = "I:\XXX\log\XXX.txt"
Suchbegriff = "XXX9"
Set Ausgabe = fso.CreateTextFile(Ziel, True)
For Each File In fso.GetFolder(Quelle).Files
If LCase(fso.GetExtensionName(File.Name)) = Typ Then
Inhalt = fso.OpenTextFile(File).ReadAll
If InStr(1, Inhalt, Suchbegriff, vbTextCompare) Then
Ausgabe.WriteLine File.Name
End If
End If
Next
Ausgabe.Close
WScript.Echo "Fertig."
Die txt legt er an bleibt aber leer.
Hat jemand ne Idee??
Zeile 9
Zeichen 1
Eingabe hinter Dateiende
Code: 800A003E
Laufzeitfehler
Ab.
Set fso = CreateObject("Scripting.FileSystemObject")
Quelle = "I:\XXX\log\client"
Typ = LCase("txt")
Ziel = "I:\XXX\log\XXX.txt"
Suchbegriff = "XXX9"
Set Ausgabe = fso.CreateTextFile(Ziel, True)
For Each File In fso.GetFolder(Quelle).Files
If LCase(fso.GetExtensionName(File.Name)) = Typ Then
Inhalt = fso.OpenTextFile(File).ReadAll
If InStr(1, Inhalt, Suchbegriff, vbTextCompare) Then
Ausgabe.WriteLine File.Name
End If
End If
Next
Ausgabe.Close
WScript.Echo "Fertig."
Die txt legt er an bleibt aber leer.
Hat jemand ne Idee??
Kommentieren
Teilen
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 134458
Url: https://administrator.de/forum/vbs-such-script-bricht-ab-134458.html
Ausgedruckt am: 27.04.2025 um 06:04 Uhr
1 Kommentar
Hallo JOGIWOGI!
Der Laufzeitfehler tritt auf, wenn Du versuchst eine Datei mit der Größe 0 einzulesen.
Ändere Deinen Test in:
und ändere:
Gruß Dieter
Der Laufzeitfehler tritt auf, wenn Du versuchst eine Datei mit der Größe 0 einzulesen.
Ändere Deinen Test in:
If LCase(fso.GetExtensionName(File.Name)) = Typ And File.Size > 0 Then
....
End ifInhalt = fso.OpenTextFile(File).ReadAll
'zu
Inhalt = fso.OpenTextFile(File.Path).ReadAllGruß Dieter
