Private Function CheckDisk(sDrive as String) As Boolean

'################################################################

'# Diese Funktion gibt "True" zurück, wenn eine Diskette in dem #

'# durch sDrive angegebenen Laufwerk eingelegt wurde            #

'# Der Aufruf geschieht z.B. durch                              #

'#     Debug.Print CheckDisk("A:")                              #

'# Wenn das Laufwerk A: geprüft werden soll.                    #

'################################################################

    Dim Result As String



    On Error Resume Next

    Result = Dir$(sDrive)

    Do While Err

        If MsgBox("Bitte legen Sie eine Diskette in Laufwerk " & sDrive & " ein." & vbCrLf & _

                   Err.Description, vbExclamation + vbRetryCancel) = vbCancel Then

            ' Abbruch durch Anwender

            CheckDisk = False

            Exit Function

        Else

            ' Neuer Versuch

            Err.Clear

            Result = Dir$(sDrive)

        End If

    Loop

    '

    ' Erfolgsmeldung zurückgeben

    '

    CheckDisk = True



    '

    ' Die folgendende Kontrollmeldung kann natürlich entfernt werden.

    '

    If Len(Result) Then

        MsgBox "Es befindet sich eine Disktette in Laufwerk " & _

                sDrive & ". Eine Datei heißt: " & vbCrLf & _

                Result, vbInformation

    Else

        MsgBox "In Laufwerk " & sDrive & " befindet sich eine leere Disktette."

    End If

End Function