可删除正在运行文件的代码

以上附件中是“可删除正在运行文件的代码”，在运行时会弹出对话框，然后指定删除文件的路径。我想改成这样：在代码中直接写入文件路径，比如：
E:\1.XLS，运行后直接删除1.xls,不出现任何对话框。请大家帮我稍作下修改。