Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Problem mit IsDriveReady
Autor: ODO
Datum: 25.10.09 10:43
Prüfe mit unten stehender Funktion ob ein Laufwerk vorhanden ist oder nicht. Mein Problem: Fällt nun ein Laufwerk mal aus, so hängt meine Anwendung für etwa 30 Sek. bis ich eine Rück-Antwort bekomme. Meine Vermutung: Da das Laufwerk noch im Explorer abgezeigt wird, muss ich so etwas wie ein Refresh auslösen, bevor ich diese Function aufrufe...... oder so..... '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 Private Sub Command1_Click() Dim Drive As String Drive = "Y:" If IsDriveReady(Drive) Then MsgBox "Laufwerk bereit!" Else MsgBox "Laufwerk nicht bereit!" End If End Sub Beitrag wurde zuletzt am 25.10.09 um 11:11:49 editiert.

Problem mit IsDriveReady	1.997	ODO	25.10.09 10:43
Re: Problem mit IsDriveReady	1.187	ODO	29.10.09 09:51

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen