Delete files older than 7 days

[sharky12345]

Can someone show me how to delete any .pdf files in a folder that were created earlier than 7 days ago?

 

[ImranMalek]

Hi ,
You can try below code

Function DelFiles(folder As String, criteria As String)


    Dim file As String
    file = Dir(folder & "\*" & criteria)
    Do While Len(file) > 0
        If CDate(FileDateTime(folder & "\" & file)) < DateAdd("d", -7, Date) Then
            Kill (folder & "\" & file)
        End If
        file = Dir
    Loop


End Function

To call the function you can use syntax similar to below

DelFiles("D:\temp","pdf")

Hope it helps.