Prüfen, ob eine Diskette eingelegt ist
Falls noch jemand eine Diskette im Einsatz hat, dann könnte dieser Code weiterhelfen.
Mit diesem Code können Sie prüfen, ob im Diskettenlaufwerk eine Diskette eingelegt ist.
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.