VBA:如何删除文件?
答
这是我使用的东西。很干净,有效:
Sub DeleteTEMPIMPORTWorkbook()
Dim MyDir As String, fn As String
MyDir = CreateObject("WScript.Shell").SpecialFolders("MyDocuments") & "\My Files" ' Change this to the directory where the file you need to delete is located.
On Error Resume Next
Kill MyDir & "\TEMPIMPORT.xlsx"
On Error GoTo 0
End Sub
请注意,使用Kill
确实不将文件发送到回收站。它会永久删除文件。
+0
谢谢。解决了它。 – Studix
+0
@Studix不客气。如果答案有效,请提供答案。 –
什么bin?回收站? [到斌](http://www.cpearson.com/excel/recycle.aspx) – Davesexcel
我相信如此。我不完全懂英文。但是我想自动扔掉各种文件,以便在我清空垃圾箱时删除它们。 – Studix
请参阅我以前的帖子中的链接。 – Davesexcel