0160-93 82 19 37 | Nehmen Sie 
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.
