Advertisement
C_Volume2 Files/ File Controls/ Input/ Output #70800

Validate_File

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

AI

AI Samenvatting: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Broncode
original-source
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
Originele reacties (3)
Hersteld van de Wayback Machine