VBA代码大全012: 如何用vba删除文件？

vba 中内置了一个kill语句，可以删除一个或者多个文件。

kill 语句的语法如下：

Kill pathname

其中pathname参数为要删除的文件的完整路径，它还支持*和?的通配符，用于指定多个文件。

如果pathname参数指定的文件不存在，会报出错误。

以下是一些示例代码：

Sub QQ1722187970()
    Kill "c:\1.txt"
    Kill "c:\*.xl*"
End Sub

除了用kill语句，还可以用FileSystemObject对象的DeleteFile方法。

它的语法如下：

object.DeleteFile ( filespec[, force] );

其中第一个参数也是要删除的文件所在的路径，同样的可以带通配符，第二个参数可以设置是否强制删除只读文件。

以下是一些示例代码：

Sub 删除文件()
   Dim fso
   Set fso = CreateObject("Scripting.FileSystemObject")
   fso.DeleteFile "d:\1.txt"
   '强制删除所有txt文件
   fso.DeleteFile "d:\*.txt*", True
End Sub