Excel und VBA: Formeln, Programmierung, Lösungen

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