Advertisement
4_2005-2006 Files/ File Controls/ Input/ Output #149659

Validate_File

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

AI

AI 요약: 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.

소스 코드
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
원본 댓글 (3)
Wayback Machine에서 복구됨