怎样判断一个文件是否存在？怎样彻底删除一个文件？

[wuyaohua]

例如：

判断c:\file.exe存在否？

删除c:\file.exe

谢谢～

[czy412]

Dim objFSO As New Scripting.FileSystemObject
Dim objFile As Scripting.File '注释：文件对象
Dim objFolder As Folder
Dim strPath As String

strPath = "C:\"
Set objFolder = objFSO.GetFolder(strPath)

'检查目录中的文件
Dim strFileName As String, i As Integer
For Each objFile In objFolder.Files
If objFile.ShortPath, 4 = "file.exe" Then
objFile.DeleteFile "file.exe" ,true
End If
Next objFile

[coward_c]

这样好象也可以删除,而且不是到垃圾筒

kill "c:\file.exe"

[coward_c]

判断有没有用这个也好

If Dir("c:\file.exe", vbNormal) = "" Then
MsgBox ("没有这个文件啊!")
end if