Function to delete file over x days old

[newcoder54]

Just need a idea to kill a file if over so many days old.

Something like this:

Function KillOldFile()

If C:\My Documents\MyFile.xls is over 3 days old then
Kill

End Function.

I know its simple but still over my head as a user. Thanks

 

[PHV]

Something like this ?
Sub KillOldFile(strPathname As String)
If FileDateTime(strPathname) < Date() - 3 Then
Kill strPathname
End If
End Sub

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244