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.
+49(0) 151 164 55 914 
