Форумы HiProg.com - MS ACCESS, VBA, VB

ник: ?????
не моё, но работает безотказно Public Function adhFileExists(sFN, Optional out_FileName As String) As Boolean
Dim s As String

On Error Resume Next
out_FileName = ""
out_FileName = Dir(sFN, vbHidden Or vbSystem Or vbArchive Or vbReadOnly)
adhFileExists = ((Len(out_FileName) > 0) And (Err.Number = 0))
Err.Clear
End Function