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??
Please also mark the comments that contributed to the solution of the article
Content-Key: 134458
Url: https://administrator.de/contentid/134458
Printed on: April 19, 2024 at 08:04 o'clock
1 Comment
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 if
Inhalt = fso.OpenTextFile(File).ReadAll
'zu
Inhalt = fso.OpenTextFile(File.Path).ReadAll
Gruß Dieter