Компонент drive1 и пустой дисковод - VB
Формулировка задачи:
здраствуйте,подскажите как обработать такое исключение, чтоб мое приложение не закрывалось когда пытаешься компнентом drive открыть дисковод в котором нет диска.
юзаю visual basic 6
Решение задачи: «Компонент drive1 и пустой дисковод»
textual
Листинг программы
Option Explicit Private Sub Диск1_Change() On Error GoTo ER Дир1.Path = Диск1.Drive Exit Sub ER: If Err.Number = 68 Then MsgBox "Вставь диск", vbCritical, "" End Sub