Wednesday 30 March 2016

Auto Kill or Delete files within specified timeline

Sub autokill_Files()
On Error Resume Next  ' To skip any error
Application.Wait (Now + TimeValue("00:00:05")) ' Time can be changed
Kill "D:\Users\Ramneek sharma\Desktop\Sample Folder\*" ' Set the path as required
End Sub

No comments:

Post a Comment