Prüfen, ob eine Diskette eingelegt ist

105024



Mit diesem Code können Sie prüfen, ob im Diskettenlaufwerk eine Diskette eingelegt ist.
Ist keine Diskette eingelegt, werden Sie aufgefordert, eine einzulegen.

Sub Prüfung_Diskettenschacht()
'Variablen dimensionieren
Dim datei

'Fehler abfangen
On Error Resume Next

'Prüfen, ob Diskette eingelegt ist und Meldung ausgeben
If IsError(MeineDatei = Dir("a:\", vbDirectory)) = True Then
    MsgBox "Bitte eine Diskette einlegen!"
    Exit Sub
End If

End Sub

Sie können also Erzwingen, dass eine Diskette eingelegt wird.
Dies ist bspw. für Installationsroutinen etc. wichtig.