| Вопрос: Ошибка доступа к файлу!!!!!!! | Добавлено: 18.08.03 17:49 |
Автор вопроса:  HyperMen | Web-сайт: www.phpworld.net.ru
|
|
Если файл не найден как сообщить свою ошибку?? Вернее свое сообщение выдасть!!!! |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  ZeroX ICQ: 220401330 Вопросов: 47 Ответов: 406 |
Профиль | | #1 | Добавлено: 18.08.03 18:06 |
|
Вставь обработчик ошибок в процедуру и проверяй номер ошибки, если это номер для ошибки "File not found", тогда Msgbox "Файл нихрена не найден" или типа того Удачи |
||
|
Номер ответа: 2 Автор ответа:  LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #2 | Добавлено: 19.08.03 09:23 |
|
Код формы 'На форме для примера два контрола - Text1 и Command1 Option Explicit Private Sub Command1_Click() On Error GoTo mErr Dim tFile As Byte Dim nFile As String Dim Ret As Long tFile = FreeFile(0) nFile = Text1.Text Open "c:\" & nFile For Input As tFile Text1.Text = Input(tFile, LOF(tFile)) Close tFile mErr: If Err.Number = 53 Then Ret = MsgBox("Файл " & nFile & " не найден", vbCritical, "Ошибка") Else: Ret = MsgBox("Другая ошибка", vbCritical, "Ошибка") End If End Sub |
||
Страница: 1 |