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