Binaryworld - Another check if a file exists ... [ VB -> Files & Folder ]

Function FileExists(strFile As String) As Integer
'********************************************************************************
'* Name : FileExists
'* Date : Feb-17, 2000
'* Author : David Costelloe
'* Returns : -1 = Does not exists 0 = Exists with zero bytes 1 = Exists > 0 Bytes
'*********************************************************************************
  Dim lSize As Long

  On Error Resume Next
  '* set lSize to -1
  lSize = -1
  'Get the length of the file
  lSize = FileLen(strFile)
  If lSize = 0 Then
    '* File is zero bytes and exists
    FileExists = 0
  ElseIf lSize > 0 Then
    '* File Exists
    FileExists = 1
  Else
    '* Does not exist
    FileExists = -1
  End If
End Function

Usage

Click here to copy the following block

'Usage:
Private Sub Command1_Click()
  Dim IntCheckFile As Integer

  IntCheckFile = FileExists("C:\Config.sys")

  Select Case IntCheckFile
   Case -1
     MsgBox "Sorry not there"
   Case 0
     MsgBox "Oh yeah exits but only zero bytes"
   Case 1
     MsgBox "Cool we do exist and greater than zero bytes!"
  End Select
End Sub