Public Class frmTest
 
 
    Dim WithEvents btn_analyse_project As New Button With _
        {.Parent = Me, .Text = "Do It"}
    Dim folderbrowserdialog1 As New FolderBrowserDialog
 
    Dim datentabelle As DataTable
    Dim dgv1 As New DataGridView With {.Parent = Me, .Top = 50}
 
 
    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 datenreihePN, datenreiheCANinterval, datenreiheTimeout0, _
          datenreiheTimeout1, datenreiheTimeout2, datenreiheTimeout3, _
          datenreiheTimeout4, datenreiheTimeout5, datenreiheTimeout6, _
          datenreiheTimeout7 As DataRow
 
        Dim FAdCfilename As String
 
        Dim folder As String
        Dim counter As Integer '!!!!!!!!!!!!!
 
        If folderbrowserdialog1.ShowDialog() = DialogResult.OK Then
            folder = folderbrowserdialog1.SelectedPath
            counter = My.Computer.FileSystem.GetFiles(folder, _
              FileIO.SearchOption.SearchTopLevelOnly, "*.ADC").Count   
        Else
            '!!!!!!!!!!!!
            Exit Sub
        End If
 
        If datentabelle IsNot Nothing Then
            '!!!!!!!!!!!!
            datentabelle.Dispose()
            datentabelle = Nothing
        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
 
        datentabelle.Columns.Add("Bezeichnung")
        datenreihePN(0) = "PN"
        datenreiheCANinterval(0) = "Interval"
        datenreiheTimeout0(0) = "TO0"
        datenreiheTimeout1(0) = "TO1"
        datenreiheTimeout2(0) = "TO2"
        datenreiheTimeout3(0) = "TO3"
        datenreiheTimeout4(0) = "TO4"
        datenreiheTimeout5(0) = "TO5"
        datenreiheTimeout6(0) = "TO5"
        datenreiheTimeout7(0) = "TO6"
 
 
        Dim pn, transmissioninterval, timeout(7) As String
 
        For Each datei As String In IO.Directory.GetFiles(folder)
            FAdCfilename = Strings.Left(IO.Path.GetFileName(datei), 5)
            'Form2.TextBox1.Text = filecount
 
            If IO.Path.GetExtension(datei).ToLower = ".adc" Then
 
                Loadfile(datei, pn, transmissioninterval, timeout)
                'Parse()
 
                datentabelle.Columns.Add(FAdCfilename)
                filecount += 1
                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)
 
            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)
 
        dgv1.DataSource = datentabelle
 
 
    End Sub
 
 
    Dim rndm As New Random
    Private Sub Loadfile(ByVal datei As String, ByRef PN As String, _
                ByRef transmissionintervall As String, ByRef timeout() As _
                String)
 
        'zufällige Daten generieren
        PN = "PN" + rndm.Next(0, 10000).ToString
        transmissionintervall = rndm.Next(10000).ToString
        For i As Integer = 0 To timeout.Length - 1
            timeout(i) = (CDec(i + 1) * rndm.Next).ToString
        Next i
    End Sub
 
End Class