VB如何检查文件是否存在?

if dir("c:\1.exe",vbHidden+vbReadOnly+vbSystem)<>"" then

用DIR 函数
代码格式：
dir([文件名],vbHidden + vbReadOnly + vbSystem)<>""

‘查找指定文件，包括隐藏文件，系统文件，只读文件

用DIR函数用法如下
Dir[(pathname[, attributes])]

Dir 函数的语法具有以下几个部分：

以 vbDirectory 属性来调用 Dir 不能连续地返回子目录。!!!

以下是VB帮助自带查目录的例子，明确的指出目录必须要用GetAttr！！！

' 显示 C:\ 目录下的名称。
MyPath = "c:\" ' 指定路径。
MyName = Dir(MyPath, vbDirectory) ' 找寻第一项。
Do While MyName <> "" ' 开始循环。
' 跳过当前的目录及上层目录。
If MyName <> "." And MyName <> ".." Then
' 使用位比较来确定 MyName 代表一目录。
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then

Debug.Print MyName ' 如果它是一个目录，将其名称显示出来。
End If
End If
MyName = D