how to judge a file exist or not in vb?thanks

Question

Public Function DoesFileExist(Byval sFileName As String) As Boolean
    
    Dim f%
    
    On Error GoTo handleError
    
    If sFileName <> "" Then
        f% = FreeFile
        Open sFileName For Input As #f%
        Close #f%
        
        DoesFileExist = True
    Else
        DoesFileExist = False
    End If
    
    Exit Function
    
handleError:
    DoesFileExist = False
    
End Function

Answer 1

引用microsoft scripting runtime,利用FileSystemObject 对象 的FileExists 方法，

Answer 2

Dim fff As New FileSystemObjectIf fff.FileExists("c:\aaa.txt") Then
   msgbox "c:\aaa.txt exist"
End If