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.