Wednesday 30 March 2016

Auto Kill Files and then empty Folder after specified timeline

Sub Autokill_Files_Folders()
On Error Resume Next
Application.Wait (Now + TimeValue("00:00:05"))
Kill "D:\Users\Ramneeks\Desktop\Sample Folder\New folder\*" ' Deletes Files
Application.Wait (Now + TimeValue("00:00:01"))
RmDir "D:\Users\Ramneeks\Desktop\Sample Folder\New folder" ' Delete empty folder
End Sub
 

No comments:

Post a Comment