Dim di As New DirectoryInfo("F:\_ Nuovi DOCUMENTI\PenDrive\Documenti\3D914037\DWGStorage\Cap\")

    Private Sub frm00_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ' Set the view to show details.
        listView1.View = View.Details
        ' Allow the user to edit item text.
        listView1.LabelEdit = True
        ' Allow the user to rearrange columns.
        listView1.AllowColumnReorder = True
        ' Display check boxes.
        listView1.CheckBoxes = True
        ' Select the item and subitems when selection is made.
        listView1.FullRowSelect = True
        ' Display grid lines.
        listView1.GridLines = True
        ' Sort the items in the list in ascending order.
        listView1.Sorting = SortOrder.Ascending

        'Dim item1 As New ListViewItem("item1", 0)
        'item1.Checked = True
        'item1.SubItems.Add("1")

        listView1.Columns.Add("File", -1, HorizontalAlignment.Left)
        listView1.Columns.Add("Stato", -1, HorizontalAlignment.Left)

        Dim fi As FileInfo() = di.GetFiles("*.txt") 'di.GetFiles(".txt") se vuoi filtrare
        Dim fiTemp As FileInfo
        For Each fiTemp In fi
            listView1.Items.Add(fiTemp.Name)
        Next fiTemp


    End Sub 'CreateMyListView

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        For i As Integer = 0 To Me.listView1.Items.Count - 1
            loadFile(di.ToString & Me.listView1.Items(i).Text)
            Application.DoEvents()
            Me.listView1.Items(i).Checked = True
            Me.listView1.Items(i).SubItems.Add("Processato")
        Next


    End Sub

    Private Sub loadFile(ByVal fName As String)

        Dim TextLine As String = ""
        Dim SplitLine() As String
        If System.IO.File.Exists(fName) = True Then
            Dim objReader As New System.IO.StreamReader(fName)
            Do While objReader.Peek() <> -1
                TextLine = objReader.ReadLine()
                SplitLine = Split(TextLine, " ")
                Me.DataGridView1.Rows.Add(SplitLine)
            Loop
        Else
            MsgBox("File Does Not Exist")
        End If

    End Sub