Function FileExists(FileName As String) As Boolean On Error GoTo ErrorHandler FileExists (GetAttr(FileName) And vbDirectory) 0 ErrorHandler: End Function
If dir("c:\toto\X.yyy", vbhidden or vbnormal) <> ""