Как обработать обращение к пустому дисководу?

Вопрос:

Как сделать так, чтобы при обращении к пустому флопику (А:\), выдовалось, стандартное сообщение, что диска нет..., или, если можно, то чтобы вообще ничего не выдовалось?

Ответ:

On Error Resume Next

Поставишь перед обращением к флопику и никаких ошибок!

    Забаев Сергей

On error goto ErrH
ToDisk:
Тут обратиться к диску
on error goto o

Exit sub

NoDisk:
Тут сделать все, что надо сделать, если нет диска.
exit sub

errh:
if msgbox ("НЕТ ДИСКЕТЫ!!! ВСТАВЬТЕ ДИСКЕТУ!!!",vbCritical _
           +vbRetryCancel) = vbRetry then
           goto ToDisk
else
     goto NoDisk
end if
end sub

    Артем Кривокрисенко