删除指定的文件。
语法
object.DeleteFile (filespec)
参数:
FileSystemObject 的名称。注释
如果未找到匹配的文件,则会出现错误。DeleteFile 方法在第一次出错时便会停止。不会尝试回滚或撤消在出现错误之前所做的任何更改。
以下示例说明了 DeleteFile 方法的用法。
示例 1:
Sub DeleteSingleFile()
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile("C:\example1.txt") ' Deletes the specified file.
Set fso = Nothing
End Sub
Call DeleteSingleFile
注:
可使用 FileExists 方法检查文件是否存在,然后再使用 DeleteFile。
示例 2:
Sub CheckAndDeleteFile()
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists("C:\example2.txt") Then
fso.DeleteFile("C:\example2.txt") ' Deletes the specified file.
End If
Set fso = Nothing
End Sub