Gruppe
Datei
Bereich
Laufwerk
Thema
Diskette in Laufwerk A?
Problem
Wie kann ich prüfen, ob in Laufwerk A eine Diskette eingelegt ist?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub InsertDisk()
Dim sFile As String
On Error GoTo ERRORHANDLER
sFile = Dir("a:\", vbVolume)
MsgBox prompt:="Alles klar!"
Exit Sub
ERRORHANDLER:
MsgBox prompt:="Bitte eine Diskette einlegen!"
End Sub