Private Sub btn_analyse_project_Click(ByVal sender As System.Object, ByVal e _
   As System.EventArgs) Handles btn_analyse_project.Click
 
        Dim filecount As Integer = 0
        Dim datentabelle As DataTable
        Dim datenreihePN, datenreiheCANinterval, datenreiheTimeout0, _
          datenreiheTimeout1, datenreiheTimeout2, datenreiheTimeout3, _
          datenreiheTimeout4, datenreiheTimeout5, datenreiheTimeout6, _
          datenreiheTimeout7 As DataRow
        Dim FAdCfilename As String
 
        Form2.Show()
        Me.Hide()
 
 
        If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
            Tb_File.Text = FolderBrowserDialog1.SelectedPath
            Dim counter = My.Computer.FileSystem.GetFiles(Tb_File.Text, _
              FileIO.SearchOption.SearchTopLevelOnly, "*.ADC")   'auch ".adc" _
              wird gefunden
 
        End If
 
        datentabelle = New DataTable
        datenreihePN = datentabelle.NewRow
        datenreiheCANinterval = datentabelle.NewRow
        datenreiheTimeout0 = datentabelle.NewRow
        datenreiheTimeout1 = datentabelle.NewRow
        datenreiheTimeout2 = datentabelle.NewRow
        datenreiheTimeout3 = datentabelle.NewRow
        datenreiheTimeout4 = datentabelle.NewRow
        datenreiheTimeout5 = datentabelle.NewRow
        datenreiheTimeout6 = datentabelle.NewRow
        datenreiheTimeout7 = datentabelle.NewRow
 
 
        For Each datei In IO.Directory.GetFiles(Tb_File.Text)
            FAdCfilename = Strings.Left(Path.GetFileName(datei), 5)
            Form2.TextBox1.Text = filecount
 
            If datei.Contains(".adc") Or datei.Contains(".ADC") Then
 
                LoadFile(datei)
                Parse()
                datentabelle.Columns.Add(FAdCfilename)
 
                datenreihePN(filecount) = PN
                datenreiheCANinterval(filecount) = transmissioninterval
                datenreiheTimeout0(filecount) = Timeout(0)
                datenreiheTimeout1(filecount) = Timeout(1)
                datenreiheTimeout2(filecount) = Timeout(2)
                datenreiheTimeout3(filecount) = Timeout(3)
                datenreiheTimeout4(filecount) = Timeout(4)
                datenreiheTimeout5(filecount) = Timeout(5)
                datenreiheTimeout6(filecount) = Timeout(6)
                datenreiheTimeout7(filecount) = Timeout(7)
                filecount += 1
 
            End If
        Next
 
        datentabelle.Rows.Add(datenreihePN)
        datentabelle.Rows.Add(datenreiheCANinterval)
        datentabelle.Rows.Add(datenreiheTimeout0)
        datentabelle.Rows.Add(datenreiheTimeout1)
        datentabelle.Rows.Add(datenreiheTimeout2)
        datentabelle.Rows.Add(datenreiheTimeout3)
        datentabelle.Rows.Add(datenreiheTimeout4)
        datentabelle.Rows.Add(datenreiheTimeout5)
        datentabelle.Rows.Add(datenreiheTimeout6)
        datentabelle.Rows.Add(datenreiheTimeout7)
 
        Form2.DGV1.DataSource = datentabelle
 
 
    End Sub