在VBA中删除文件

Question

使用VBA，我如何：测试文件是否存在，如果存在，删除它？

Answer 1

1.）在这里检查。基本上做到这一点：

Function FileExists(ByVal FileToTest As String) As Boolean

   FileExists = (Dir(FileToTest) <> "")

End Function

我将留给您找出所需的各种错误处理，但这是我要考虑的错误处理内容之一：

检查是否传递了空字符串。

检查文件名/路径中包含非法字符的字符串

2.）如何删除文件。看这个 基本上使用Kill命令，但是您需要考虑将文件设为只读的可能性。这是为您提供的功能：

Sub DeleteFile(ByVal FileToDelete As String)

   If FileExists(FileToDelete) Then 'See above          

      ' First remove readonly attribute, if set

      SetAttr FileToDelete, vbNormal          

      ' Then delete the file

      Kill FileToDelete

   End If

End Sub

同样，我将把错误处理留给您，这些也是我考虑的事情：

目录和文件的行为是否应该有所不同？用户是否应该必须明确表示必须删除目录？

您是要代码自动重置只读属性，还是应该向用户提供某种指示，说明已设置了只读属性？

编辑：将此答案标记为社区Wiki，以便任何人可以根据需要进行修改。

Answer 2

我否则完全同意布雷特斯基的答案的另一种编码方式可能是

With New FileSystemObject

    If .FileExists(yourFilePath) Then

        .DeleteFile yourFilepath

    End If

End With

效果相同，但变量声明更少（或者完全没有）。

FileSystemObject是一个非常有用的工具，非常值得与之友好。除了其他方面，对于文本文件编写，它有时有时可能比传统方法要快，这可能会让一些人感到惊讶。（至少以我的经验，YMMV）。

Answer 3

我可能会为此感到恼火，但是如果您要删除它，那么测试存在性的重点是什么？我最主要的烦恼之一是一个应用程序引发错误对话框，显示类似“无法删除文件，它不存在！”之类的错误对话框。

On Error Resume Next

aFile = "c:\file_to_delete.txt"

Kill aFile

On Error Goto 0

return Len(Dir$(aFile)) > 0 ' Make sure it actually got deleted.

如果文件不存在，任务就完成了！