Question

VB判断文件本目录文件是否存在

判断本目录的
If dir("\aaa.txt") then
这样的不行。
如果我的加上c:怎么不行？还加那废话。我说本目录文件，不知道是在哪个目录，是本目录。

Answer 1

Private Function FileExists%(filename$) '判断文件是否存在
Dim f%
On Error Resume Next
f% = FreeFile
Open filename$ For Input As #f%
Close #f%
FileExists% = Not (Err <> 0)
End Function

返回值不为0时文件存在～

你的这个就应该这样写～

If FileExists(App.Path & "\333.txt") <> 0 Then
MsgBox "文件存在"
Else
MsgBox "文件不存在"
End If

楼上的方法也行～
但是应该这样写

if dir(App.Path & "\333.txt",vbNormal)<>"" then
MsgBox "文件存在"
Else
MsgBox "文件不存在"
End If

Answer 2

dir后面要加上vbNormal参数
如果文件不存在函数返回空，如果存在则返回文件名
if dir("c:\aaa.txt",vbNormal)<>"" then
msgbox "存在"
else
msgbox "不存在"
end if