We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Sub DeleteOldestFile() 'maintains the number of log files to a max of 10. Deletes the oldest file. Dim strFilePath As String strFilePath = GetDBPath With Application.FileSearch .NewSearch .LookIn = strFilePath .Filename = "*.log" .Execute If .FoundFiles.Count >= MAX_LOG_COUNT Then Kill .FoundFiles(1) End If End With End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.