Private Sub ReadAllFiles()
        Try
            Dim i As Integer = 0
            Dim TitelCount As Integer = 0
            If FolderBrowserDialog1.ShowDialog Then
                '--------------------------------------------------------------
                ' -------------------------------------------------------------
                ' --------------------------------------------
                lbAktion.Text = "Anzahl der Interpreten zum einlesen wird" & _
                  "emittelt"
                lbAktion.Refresh()
                Dim ArtistCount As Integer = 0
                Dim DirInfo As New IO.DirectoryInfo( _
                  FolderBrowserDialog1.SelectedPath)
                For Each inter As String In My.Computer.FileSystem.GetFiles( _
                FolderBrowserDialog1.SelectedPath, _
                FileIO.SearchOption.SearchAllSubDirectories, "*.txt")
                    ArtistCount += 1
                Next
                ProgressBar1.Minimum = 0
                ProgressBar1.Maximum = ArtistCount
 
 
                lbStatus.Text = ArtistCount.ToString + " wurden ermittelt."
                lbStatus.Refresh()
                '--------------------------------------------------------------
                ' -------------------------------------------------------------
                ' -----------------------------------------------
 
 
 
 
 
                For Each Interpr As String In My.Computer.FileSystem.GetFiles( _
                  FolderBrowserDialog1.SelectedPath, _
                  FileIO.SearchOption.SearchAllSubDirectories, "*.txt")
                    Try
                        lbStatus.Text = "Auslesen von: " + Interpr
                        lbStatus.Refresh()
 
                        Dim Sw As New IO.StreamReader(Interpr)
                        Dim TB As New TextBox
 
                        TB.AppendText(Sw.ReadToEnd)
                        ListView1.Items.Clear()
                        While i < TB.Lines.Length - 1
                            Try
                                Dim tvn As New ListViewItem
                                Dim teile() As String = TB.Lines(i).Split(";")
                                tvn = ListView1.Items.Add(TitelCount.ToString)
                                tvn.SubItems.Add(teile(0))
                                tvn.SubItems.Add(teile(1))
                                tvn.SubItems.Add(teile(2))
                                tvn.SubItems.Add(teile(3))
                                tvn.SubItems.Add(teile(4))
                                tvn.SubItems.Add(teile(5))
 
                                MusicTitle(i).Interpret = teile(0)
                                MusicTitle(i).Album = teile(1)
                                MusicTitle(i).Titelnummer = teile(2)
                                MusicTitle(i).Titel = teile(3)
                                MusicTitle(i).Position = teile(4)
                                MusicTitle(i).Year = teile(5)
                                ListView1.Refresh()
 
                                lbAktion.Text = MusicTitle(i).Interpret + " - " _
                                  + MusicTitle(i).Album + " - " + MusicTitle( _
                                  i).Titelnummer + " - " + MusicTitle(i).Titel _
                                  + " - " + MusicTitle(i).Position + " - " + _
                                  MusicTitle(i).Year + " wird in die Datenbank" & _
                                  "Eingelesen"
                                lbAktion.Refresh()
 
                                TitelCount += 1
                                AnzahlMusic += 1
                                i += 1
                            Catch ex As Exception
                            End Try
                        End While
                        lbAktion.Text = TitelCount.ToString
                        lbAktion.Refresh()
                        InterpretenCounter += 1
                        WriteExcel()
                        Sw.Close()
                        Dim Teile1() As String = Interpr.Split("\")
                        My.Computer.FileSystem.MoveFile(Interpr, _
                          "C:\Users\Besitzer\Documents\Visual Studio" & _
                          "2008\Projects\LetSingItDatabaseCreator\LetSingItDat" & _
                          "baseCreator\bin\Debug\Complete\" + Teile1( _
                          Teile1.Length - 1), True)
                        'My.Computer.FileSystem.DeleteFile(Interpr)
                        ProgressBar1.Value += 1
                        lbProcent.Text = ProgressBar1.Value.ToString + " von " _
                          + ProgressBar1.Maximum.ToString + " Eingelesen"
                        PreSave()
                    Catch ex As Exception
                    End Try
 
                Next
            End If
        Catch ex As Exception
        End Try
 
    End Sub