方法一:
if dir("c:/windows/123.txt")="" then end
方法二:
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("c:/windows/123.txt") = true Then
msgbox "存在"
else
msgbox "文件不存在,程序即将退出~")
unload me
End If