Gruppe
Datei
Problem
Wie kann ich prüfen, ob in Laufwerk A eine Diskette eingelegt ist?
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