CodeItBetter Programming Another VB Programming Blog

'File/Folder Handling - How to Check file exists (in Six ways)
'Using Dir:

Private Function FileExistsWithDir(ByVal sFileName As String) As Boolean
    On Error Resume Next
    FileExistsWithDir = (Dir$(sFileName) <> "") 
End Function
 
'Using File Open:

Private Function FileExistsWithOpen(ByVal filename As String) As Boolean
    Dim fnum As String
 
    fnum = FreeFile
    On Error GoTo FileDoesntExist
    Open filename For Input As fnum
    Close fnum
    FileExistsWithOpen = True
    Exit Function
 
FileDoesntExist:
    FileExistsWithOpen = False
End Function
 
'Using File Length:

Private Function FileExistsWithFileLen(ByVal filename As String) As Boolean
    Dim length As Long
 
    On Error GoTo FileDoesntExist
    length = FileLen(filename)
    FileExistsWithFileLen = True
    Exit Function
 
FileDoesntExist:
    FileExistsWithFileLen = False
End Function
 
'Using File Attribute:

Private Function FileExistsWithAttrib(ByVal sFileName As String) As Boolean
    Dim lRetVal As Long
 
    On Error GoTo FileDoesntExist:
    lRetVal = GetAttr(sFileName)
    FileExistsWithAttrib = True
    Exit Function
 
FileDoesntExist:
    FileExistsWithAttrib = False
End Function
 
'Using API:

Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" _
    (ByVal pszPath As String) As Long
 
Private Function FileExistsUsingAPI(ByVal sFileName As String) As Boolean
    If CBool(PathFileExists("C:\Temp\Test.txt")) Then
        FileExistsUsingAPI = True
    Else
        FileExistsUsingAPI = False
    End If
End Function
 
'Using FSO:

Public Function FileExistsUsingFSO(ByVal sFileName As String) As Boolean
    'Set a reference to "Microsoft Scripting Runtime"
    Dim FSO As Scripting.FileSystemObject
    Set FSO = New Scripting.FileSystemObject
    FileExistsUsingFSO = FSO.FileExists(sFileName)
    Set FSO = Nothing
End Function