Если ошибка...

[Acid Demon]

Короче такая проблема... Когда идет доступ к дисководу A:, если дискеты нету - прога вылетает... Какой код для НЕВЫЛЕТА ?

On Error Resume Next тока повторяет это много раз, прога висит...

[Extremist]

Может:

On error goto xxx:
'здесь то, что вызывает ошибку
Exit sub
xxx:

[shady]

ну я тоже пока начинающий, но я делал это так:

Код: Выделить всё

Dim Serial As Long, VName As String, FSName As String

VName = String$(255, Chr$(0))
FSName = String$(255, Chr$(0))

' получаем информацию о диске
GetVolumeInformation "A:\", VName, 255, Serial, 0, 0, FSName, 255
VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1)
FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1)
If Len(FSName) > 0 Then

retval = CopyFile(App.Path & "\exp\export.dbf", "A:\" & OutFile, 1)
    If retval = 0 Then  ' если ошибка
        MsgBox "Файл уже существует", vbCritical, "Ошибка"
    Else
        retval = CopyFile(App.Path & "\exp\export.dbf", "A:\" & OutFile, 1)
        ' если все нормально
        MsgBox "Файл успешно скопирован", vbInformation, "Копирование"
    End If

Unload Me
Else
GoTo 1
End If

Exit Sub
1: mb = MsgBox("В дисковод А:\ не вставлена дискета", vbCritical, "Ошибка копирования")


возможно это не лучший вариант...

[Twister]

Что значит вылетает? Что говорит?
Не пробовал

Код: Выделить всё

SetErrorMode SEM_FAILCRITICALERRORS

?

[Acid Demon]

Спасибки! Самый простой код )