VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Diskette in Laufwerk A?

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

    


Beiträge aus dem Excel-Forum zu den Themen Datei und Laufwerk