Public Function IsExist(ByVal StrFileName As String) As Boolean On Error GoTo Xe Open StrFileName For Input As #1 Close #1 IsExist = True Xi: Exit Function Xe: 'MsgBox Err.Description, vbCritical Resume Xi End Function