Dim ListBox As New ListBox
        Dim i As Integer
        Dim sPath As String = ""
        Dim Counter As Integer   _
          '____________________________________________________________________
        ' __________________________________________________________
        'alle Dateien im Startverzeichnis einschl. Unterordner 
        'in einer ListBox anzeigen
        For Each Driver As DriveInfo In My.Computer.FileSystem.Drives
            ListBox.Items.Add(Driver.Name)
        Next
 
        i = 0
        While i < ListBox.Items.Count - 1
            sPath = ListBox.Items.Item(i)
            On Error Resume Next
            For Each Datenbank As String In My.Computer.FileSystem.GetFiles( _
              sPath, FileIO.SearchOption.SearchAllSubDirectories, _
              "Datenbank.txt")
                Path = Datenbank
                If Path = Nothing = True Then
                Else
                    Exit For
                End If
 
            Next
 
            For Each Benutzer As String In My.Computer.FileSystem.GetFiles( _
              sPath, FileIO.SearchOption.SearchAllSubDirectories, _
              "BenutzerDesKiosks.txt")
                Path2 = Benutzer
                If Path = Nothing = True Then
                Else
                    Exit For
                End If
 
            Next
            For Each Vorlage As String In My.Computer.FileSystem.GetFiles( _
              sPath, FileIO.SearchOption.SearchAllSubDirectories, _
              "QuittungsVorlage.dot")
                Path3 = Vorlage
                If Path = Nothing = True Then
                Else
                    Exit For
                    Exit While
                End If
 
            Next
 
            i += 1
        End While