Chiusura

[xegallo]

i titoli, attento a rispondere e non premere nuova discussione, e formatta il codice

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 
End If 


End Function