• Home
 · 
• Files/File Controls/Input/Output
 · 
• ValidateFile

ValidateFile

Determines if a file exists
Improved version--detects hidden files too!

Inputs
filename--file to validate

Returns
'returns true or false

Rate ValidateFile

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

Function Validate_File (ByVal FileName As String) As Integer
Dim fileFile As Integer
  'attempt to open file
  fileFile = FreeFile
  On Error Resume Next
  Open FileName For Input As fileFile
  
  'check for error
  If Err Then
    Validate_File = False
  Else
    'file exists
    'close file
    Close fileFile
    Validate_File = True
  End If
End Function