I am trying to use this script to filter out the last half of the file. However it has to be done dynamicly. so i can not use a fixedset of lines.

Quote:

Dim file, strTest, stream

Set File = CreateObject("Scripting.FileSystemObject")

Set stream = file.OpenTextFile("FR21A1.txt")

strTest = stream.ReadLine
stream.WriteLine strTest

Do While strTest <>("LONDONDAY FOR- 600 HARVEYS")
strTest = stream.ReadLine
stream.WriteLine strTest

Loop

stream.Close
file.Close
The error I get is file not found. what am i doing wrong?

Thank you