If any file in repository contains string...

Good day... seems like I ask for more help than I can offer when I visit the forum...but I have another one.

I've got a macro that kills all the files in a repository before proceeding (the macro creates files and dumps them there, and I want it to be clean at the start). The problem is, other people are going to be using the macro, and may not check the repository before they start.

I'd like to have a bit of code that reads the content of the directory and kills the files if they were created any day prior to the current date. If any of you have anything like that handy, I'd appreciate having a look at it. I'm a pretty low level vba guy, but I may be able to make modifications...

Thank you for any help.

Hi there,

See if the following code does what you want:

Sub ClearOldFiles()

    Dim bFileExists As Boolean
    Dim sFolderName As String
    Dim vaFileName  As Variant

    sFolderName = "W:\"

    bFileExists = True

    vaFileName = Dir$(sFolderName, vbNormal)

    While bFileExists = True

        If vaFileName = vbNullString Then

              bFileExists = False

        Else

              If Int(FileDateTime(sFolderName & vaFileName)) < Date Then
                  Kill sFolderName & vaFileName
              End If

              vaFileName = Dir

        End If

    Wend

End Sub

Change the highlighted value to suit your own requirements.

Strictly speaking, you don't need this part of the above code, but I had already included it because I wanted to extract the Date part of the value for testing.

Hope this helps - please let me know how you get on.

Regards,

Greg M

Greg - thank you! I made one small change so that if it finds ANY files from prior day, it deletes ALL the files.

 
If Int(FileDateTime(sFolderName & vaFileName)) < Date Then
                  Kill sFolderName & "*.*"
                  End
              End If

I won't be able to run it to completion until tomorrow, but I'm pretty sure it will work perfectly, or only need minor tweaks.

Thank you again!

Hi again,

Many thanks for your feedback and also for the Reputation increase

Hope it works correctly for you tomorrow - if not, let me know if there's anything I can help you with.

Best regards,

Greg M