Private Sub Command1_Click()
Dim fsoTemp As Object
Set fsoTemp = CreateObject("Scripting.FileSystemObject")
If fsoTemp.FileExists("c:\dalian02.dmp") = True Then
MsgBox "文件存在"
fsoTemp.DeleteFile "c:\dalian02.dmp", True
MsgBox "文件删除成功"
Else
MsgBox "文件不存在"
End If
End Sub

楼上正解。但需要开启FSO权限。这个方法很方便了

或者直接DeleteFile 抓Error