Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

Filter File

Sub FilterFile()     On Error Resume Next     Open "c:\infile.txt" For Input As #1     Open "c:\output.txt" For Output As #2     If Err <> 0 Then         MsgBox "Error reading or writing a file."         Exit Sub     End If     TextToFind = "January"     Do While Not EOF(1)         Line Input #1, data         If InStr(1, data, TextToFind) Then             Print #2, data         End If     Loop     Close End Sub