Binaryworld - Functions to find if file exists... ... [ VB -> Files & Folder ]

Public Function FileExists(filename As String) As Boolean
FileExists = (Dir(filename, vbNormal Or vbReadOnly Or vbHidden Or vbSystem Or vbArchive) <> "")
End Function

Usage

Click here to copy the following block

'Usage:
Private Sub Command1_Click()
  If FileExists("C:\Config.sys") Then
    MsgBox "Config.sys is available"
  Else
    MsgBox "Sorry Can't find Config.sys"
  End If
End Sub

Click here to copy the following block

'Using the DIR function may not be the best way to determine
'if a file exists, especially if you are using VB to compare two
'directories, and take actions when the files do not match.
Function FileExist(sTestFile As String) As Boolean
  'This function does not use DIR since it is possible that you might have
  'been in the middle of running DIR against another directory in
  'an attempt to match one directory against another.

  'It does not handle wildcard characters
  Dim lSize As Long
  On Error Resume Next
  'Preset length to -1 because files can be zero bytes in length
  lSize = -1
  'Get the length of the file
  lSize = FileLen(sTestFile)
  If lSize > -1 Then
    FileExist = True
  Else
    FileExist = False
  End If
End Function