Limiting Flat Files to a Specified Size

[DaveyCrockett]

Is there a way to limit how big a file can grow and to delete or overwrite old data. ie. I have a VB Application that is writing to a log file using APPEND. This file can get pretty big if I don't clean it up.

This is my function that writes to the file:
Public Function WriteToFile(LogFile As String, LogMsg As String)
On Error Resume Next
Open LogFile For Append As #1
Print #1, LogMsg
Close #1
End Function

I call this function as follows:
WriteToFile App.Path & "\LogFile.txt", "String that gets inserted into the file"

Would any of you know how I could limit the file to say 100k?


Thanks

 

[BobRodes]

set a reference to "Microsoft Scripting Runtime."
dim fso as FileSystemObject
dim cFile as File
set fso = new FileSystemObject
set cFile = fso.GetFile("MyFilePathandName&quot
if cFile.Size > 100000 then
fso.DeleteFile("MyFilePathAndName&quot
end if
(Recreate your file if necessary.)

That should be pretty close, off the top of my head.

Bob

 

[DaveyCrockett]

Bob,

I tried your suggestion, but to no avail. Do you have any other suggestions?

Thanks

 

[CCLINT]

You could use the Dir() and FileLen() functions. Press F1 and see the help files on it.

 

[engineer2100]

think you can follow the following steps (simple though)

1.Before opening the file to append, check the filesize.
2. If it is = the max file size u need, delete the file.
-May be u can log this deletion itself somewhere
3. [Re]Write the File Contents

HTH
Engi