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
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 129