Questa e' la mia funzione, se all'interno di questa routine si verifica l'errore cod. 68 oltre a darmi il messaggio come faccio dovrebbe interrompere qualsiasi operazione, uscire dalla functione e uscire del tutto dal programma.


Public Function DrvLabel(disco As String) As String

On Error GoTo err_trap

ChDrive Left$(disco, 1)
DrvLabel = Dir(disco, vbVolume)

err_trap:

If Err.Number = 68 Then
Beep
MsgBox "Unità non disponibile", vbCritical + vbSystemModal
End If


End Function