Function deleteFile(Byval sFileName As String) As Integer
On Error Resume Next
deleteFile = False
If isFile( sFileName ) Then Kill sFileName
deleteFile = Not isFile( sFileName )
End Function
例子
If deleteFile("c:/temp/myfile.doc") Then MsgBox "The file 'c:/temp/myfile.doc has been deleted."