Sub RecycleFile(strFilePath) CreateObject("Shell.Application").NameSpace(strFilePath).Self.InvokeVerb("&Delete") End Sub