Sub wollexpc()
' Library Scripting
' C:\WINDOWS\system32\scrrun.dll
' Microsoft Scripting Runtime
Dim FSO As New Scripting.FileSystemObject
Dim TxS1 As Scripting.TextStream
Dim TxS2 As Scripting.TextStream
Dim Stmp As String
Set TxS1 = FSO.OpenTextFile("F:\DATA\download\0413.log") ' Pfad muss angepasst 
' werden
Set TxS2 = FSO.CreateTextFile("F:\DATA\download\out.tmp") ' Pfad muss angepasst 
' werden
Do While Not TxS1.AtEndOfStream
    Stmp = TxS1.ReadLine
    If Mid(Stmp, 65, 5) <> " 0.00 " Then
        TxS2.WriteLine Stmp
    End If
Loop
TxS1.Close
TxS2.Close
FSO.DeleteFile "F:\DATA\download\0413.log", True
FSO.MoveFile "F:\DATA\download\out.tmp", "F:\DATA\download\0413.log"
End Sub