Dynamically iterating through log files

[bay_dar]

It seems there has got to be a better way to work with log files where
I want to keep 8 days of logs. For instance if I wanted to keep 80
days, this would be a horrible approach. How can I make this more
dynamic and efficient?
Const FTPOutputFile = "output-files.log"
Const FTPOutputFile1 = "output-files-1.log"
Const FTPOutputFile2 = "output-files-2.log"
Const FTPOutputFile3 = "output-files-3.log"
Const FTPOutputFile4 = "output-files-4.log"
Const FTPOutputFile5 = "output-files-5.log"
Const FTPOutputFile6 = "output-files-6.log"
Const FTPOutputFile7 = "output-files-7.log"

Sub Main()
'Do Stuff - gather log information
If a new day
RotateLogFiles( )
End if
'Write to log....
End Sub

Sub RotateLogFiles( )

'Delete Oldest Log

If objFSO.FileExis ts(FTPOutputFil e7) = True Then
objFSO.DeleteFi le(FTPOutputFil e7)
End If

'Rotate logs
If objFSO.FileExis ts(FTPOutputFil e6) = True Then
objFSO.MoveFile (FTPOutputFile6 , FTPOutputFile7)
End If

If objFSO.FileExis ts(FTPOutputFil e5) = True Then
objFSO.MoveFile (FTPOutputFile5 , FTPOutputFile6)
End If

If objFSO.FileExis ts(FTPOutputFil e4) = True Then
objFSO.MoveFile (FTPOutputFile4 , FTPOutputFile5)
End If

If objFSO.FileExis ts(FTPOutputFil e3) = True Then
objFSO.MoveFile (FTPOutputFile3 , FTPOutputFile4)
End If

If objFSO.FileExis ts(FTPOutputFil e2) = True Then
objFSO.MoveFile (FTPOutputFile2 , FTPOutputFile3)
End If

If objFSO.FileExis ts(FTPOutputFil e1) = True Then
objFSO.MoveFile (FTPOutputFile1 , FTPOutputFile2)
End If

If objFSO.FileExis ts(FTPOutputFil e) = True Then
objFSO.MoveFile (FTPOutputFile, FTPOutputFile1)
End If

End Sub

Thanks.

[RobinS]

I would use the date in the file name.
Like OutputFiles_yym mdd.log

If there's no way to search a directory
for all the files written prior to a
specific date, you can always iterate
through the files and parse the name
for the date, and delete them.

Robin S.
-----------------------------
<ba*****@yahoo. comwrote in message
news:11******** **************@ k70g2000cwa.goo glegroups.com.. .

It seems there has got to be a better way to work with log files where
I want to keep 8 days of logs. For instance if I wanted to keep 80
days, this would be a horrible approach. How can I make this more
dynamic and efficient?
Const FTPOutputFile = "output-files.log"
Const FTPOutputFile1 = "output-files-1.log"
Const FTPOutputFile2 = "output-files-2.log"
Const FTPOutputFile3 = "output-files-3.log"
Const FTPOutputFile4 = "output-files-4.log"
Const FTPOutputFile5 = "output-files-5.log"
Const FTPOutputFile6 = "output-files-6.log"
Const FTPOutputFile7 = "output-files-7.log"

Sub Main()
'Do Stuff - gather log information
If a new day
RotateLogFiles( )
End if
'Write to log....
End Sub

Sub RotateLogFiles( )

'Delete Oldest Log

If objFSO.FileExis ts(FTPOutputFil e7) = True Then
objFSO.DeleteFi le(FTPOutputFil e7)
End If

'Rotate logs
If objFSO.FileExis ts(FTPOutputFil e6) = True Then
objFSO.MoveFile (FTPOutputFile6 , FTPOutputFile7)
End If

If objFSO.FileExis ts(FTPOutputFil e5) = True Then
objFSO.MoveFile (FTPOutputFile5 , FTPOutputFile6)
End If

If objFSO.FileExis ts(FTPOutputFil e4) = True Then
objFSO.MoveFile (FTPOutputFile4 , FTPOutputFile5)
End If

If objFSO.FileExis ts(FTPOutputFil e3) = True Then
objFSO.MoveFile (FTPOutputFile3 , FTPOutputFile4)
End If

If objFSO.FileExis ts(FTPOutputFil e2) = True Then
objFSO.MoveFile (FTPOutputFile2 , FTPOutputFile3)
End If

If objFSO.FileExis ts(FTPOutputFil e1) = True Then
objFSO.MoveFile (FTPOutputFile1 , FTPOutputFile2)
End If

If objFSO.FileExis ts(FTPOutputFil e) = True Then
objFSO.MoveFile (FTPOutputFile, FTPOutputFile1)
End If

End Sub

Thanks.