Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Diskette in Laufwerk A?

Gruppe

Laufwerk

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