Rubrik: Dateisystem · Laufwerke | VB-Versionen: VB4, VB5, VB6 | 13.01.01 |
Prüfen, ob Laufwerk bereit Wenn Sie versuchen auf ein Laufwerk zuzugreifen, welches nicht bereit ist (keinen Datenträger enthält), so bekommen Sie immer eine lästige Fehlermel... | ||
Autor: Fabian Holzer | Bewertung: | Views: 20.490 |
www.vb-appz.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Wenn Sie versuchen auf ein Laufwerk zuzugreifen, welches nicht bereit ist (keinen Datenträger enthält), so bekommen Sie immer eine lästige Fehlermeldung.
Mit Hilfe der nachfolgenden Routine gehört dieser Fehler der Vergangenheit an. Die Funktion IsDriveReady prüft, ob sich in einem bestimmten Laufwerk ein Datenträger befindet und gibt im Erfolgsfall den Wert True zurück.
' Prüfen, ob Laufwerk bereit Public Function IsDriveReady(ByVal Drive As String) _ As Boolean Dim OldDrive As String Dim Result As Boolean On Local Error Resume Next OldDrive = CurDir() ChDir Drive Result = (Err = 0) ChDir OldDrive On Local Error Goto 0 IsDriveReady = Result End Function
Beispiel:
Dim Drive As String Drive = "A:" If IsDriveReady(Drive) Then MsgBox "Laufwerk bereit!" Else MsgBox "Laufwerk nicht bereit!" End If