Private Function FileExists(strFileName As String) As Boolean On Error GoTo ERROR_HANDLER FileExists = (GetAttr(strFileName) And vbDirectory) = 0 ERROR_HANDLER: End Function