Will man feststellen, ob ein Laufwerk bereit für den Zugriff ist, also ein Datenträger eingelegt ist oder ein Netzlaufwerk verbunden ist, führt kein Weg an "Try & Error" vorbei. Erst wenn man versucht auf ein Laufwerk zuzugreifen, bekommt man Feedback in Form eines Fehler, dass auf das Laufwerk nicht zugegriffen werden kann. Diesen Fehler kann man abfangen und auswerten. Für die Prüfung wird die GetAttr-Funktion verwendet:

Public Function IsDriveReady(ByVal Drive As String) As Boolean
 
  On Error Resume Next
  GetAttr Left$(Drive, 1) & ":\"
  
  IsDriveReady = CBool(Err.Number = 0)
  
  On Error GoTo 0
End Function

Als Parameter Drive kann jeder beliebige Pfad/Dateiname oder auch nur ein einzelner Laufwerksbuchstabe übergeben werden:

' Anwendung:
Debug.Print IsDriveReady("a")