在VBA中删除文件

使用VBA，我如何：

1. 测试文件是否存在，如果存在，
2. 删除它？

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，以便任何人可以根据需要进行修改。

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

With New FileSystemObject
    If .FileExists(yourFilePath) Then
        .DeleteFile yourFilepath
    End If
End With

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

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

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

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.

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

以下内容可用于测试文件是否存在，然后将其删除。

Dim aFile As String
aFile = "c:\file_to_delete.txt"
If Len(Dir$(aFile)) > 0 Then
     Kill aFile
End If 

在VB中通常Dir可以找到该文件的目录。如果不是空白，则表示存在，然后用于Kill删除文件。

test = Dir(Filename)
If Not test = "" Then
    Kill (Filename)
End If

设置对Scripting.Runtime库的引用，然后使用FileSystemObject：

Dim fso as New FileSystemObject, aFile as File

if (fso.FileExists("PathToFile")) then
    aFile = fso.GetFile("PathToFile")
    aFile.Delete
End if

提示：您是重用文件名，还是打算做一些需要立即删除的文件？

没有？

您可以使VBA从命令提示符异步触发命令DEL“ C：\ TEMP \ scratchpad.txt” / F使用VBA.Shell：

Shell“ DEL”＆chr（34）＆strPath＆chr（34）＆“ / F”，vbHide

请注意文件名周围的双引号（ASCII字符34）：我假设您具有网络路径，或包含空格的长文件名。

如果文件很大，或者网络连接速度很慢，那么“一劳永逸”便是解决之道。当然，您永远也看不到它是否有效。但是您立即恢复VBA，有时这比等待网络更好。

您可以设置对Scripting.Runtime库的引用，然后使用FileSystemObject。它具有DeleteFile方法和FileExists方法。

请参阅此处的MSDN文章。