FileSystemObject question

  • Thread starter Thread starter Tod
  • Start date Start date
T

Tod

This is kinda sorta the right NG for this question.

My code is appending to a text file each day, like this:

Set fso = CreateObject("Scripting.FileSystemObject")
Set txtStream = fso.OpenTextFile("C:\Path\Log.txt", 8)
txtStream.WriteLine (Now & ": File Updated")
txtStream.Close

The log file gets updated about five times each day, so
the file gets longer each time. I'd like to have code that
deletes x number of entries from the top of the list. How
do I do that?

tod
 
Tod,

I think I'd ask this one in the vbscript newsgroup.

If you're going to do this with scripting, you probably should create an
array, reading the text file a line at a time to add elements to the array
as strings. This way you can establish a set number of lines you want to
retain. After the array is complete, delete the old log file and build a
new one, deleting the first elements to retain the number of lines you want.

Steve
 
As you suspected,
Read the file into a variable, open it for write and write it out minus the
first five lines

or open it in excel, delete the rows and save it.

Regards,
Tom Ogilvy
 
Back
Top