Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
check a file 2
- Thread starter 5679
- Start date
-
1
- #2
-
1
- #3
I prefer
Public Function FileExist(a_file As String) As Boolean
On Error GoTo FileExist_Err
FileExist = False
FileExist = ((GetAttr(a_file) And vbDirectory) = 0)
On Error GoTo 0
Exit Function
FileExist_Err:
End Function
which return true if file (with full path) exist otherwise false. Error checking is needed in case that there's no file.
In case that a_file is a directory return false.
Bye
Public Function FileExist(a_file As String) As Boolean
On Error GoTo FileExist_Err
FileExist = False
FileExist = ((GetAttr(a_file) And vbDirectory) = 0)
On Error GoTo 0
Exit Function
FileExist_Err:
End Function
which return true if file (with full path) exist otherwise false. Error checking is needed in case that there's no file.
In case that a_file is a directory return false.
Bye
- Status
