


Public Function FileExist(FileName As String) As Boolean
On Error GoTo NotExist
Open FileName For input As #1
Close #1
FileExist = True
Exit Function
NotExist:
FileExist = False
End FunctionСейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 9