Learn how to provision tenants, synchronize on-premise Active Directory, implement Single Sign-On, customize Office deployment, and protect your organization with eDiscovery and DLP policies. Only from Platform Scholar.
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.
Join the community of 500,000 technology professionals and ask your questions.