请问VB中判断文件是否存在应该怎么写？

Question

在帮助文件中找不到相关函数，请各位帮帮忙，不胜感激！

Answer 1

if dir(文件名）<>"" then
 存在
else
 不存在
endif

Answer 2

也可以用FSO对象来实现,比较麻烦一点,给个示例,如下:
Dim sFile           As New FileSystemObject
If sFile.FolderExists(App.Path & "\FuJian") = False Then    '无FuJian这个目录，则创建它
        sFile.CreateFolder (App.Path & "\FuJian")
    End If
    
    If sFile.FileExists(App.Path & "\FuJian\" & m_sFileName) = True Then
        If MsgBox("文件：" & m_sFileName & "已存在相同名称的文件，是否覆盖？", vbQuestion + vbYesNo) = vbYes Then
            '将选择的文件先拷贝到当前应用程序下的FuJian目录下
            sFile.CopyFile Trim(Maintext(0).Text), App.Path & "\FuJian\", True
        Else
            Exit Sub
        End If
    Else
        '将选择的文件先拷贝到当前应用程序下的FuJian目录下
        sFile.CopyFile Trim(Maintext(0).Text), App.Path & "\FuJian\", True
    End If

Answer 3

Dir()比较简单，如果要有向后兼容性，改用FSO。FSO对批处理的文件操作比较方便

Answer 4

If Dir(appPath & "aaa.ini") = "" Then
        MsgBox "配置文件" & appPath & "aaa.ini未找到,程序终止!"
        End
    End If

Answer 5

If Dir("c:\a.txt", vbNormal) <> "" Then
        msgbox  "文件存在"
    End If