Ler todos os arquivos .txt e carregar no gridview

[rl28 0]

Bom dia,

 

Estou querendo ler todos arquivos que meu sistema gerou na minha máquina no formato .txt e carregar os mesmos em uma gridview, assim deixando apenas uma tela de consulta dos dados salvos nos arquivos txt, porém, meu código não está conseguindo consultar os arquivos, podem me ajudar?

 

Obs.: Quando utilizo o nome fixo do arquivo, funciona.

 

Código abaixo:

 

Public Class formListaTransacao

    Private Sub formListaTransacao_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim dt As New DataTable

        dt.Columns.Add("Código")
        dt.Columns.Add("Descrição")
        dt.Columns.Add("Ação")


        Dim Arquivo As New System.IO.StreamReader("C:\Users\rl\Desktop\" & Me.Text & ".txt", System.Text.Encoding.Default)

        While Arquivo.Peek() <> -1
            dt.Rows.Add(Arquivo.ReadLine())
        End While

        DataGridView2.DataSource = dt
    End Sub

 

Tela do gridview:

 

Informação que consta no txt e que deve carregar no gridview:

 

Primeiro arquivo

 

Segundo arquivo:

[GGerminiani 0]

Olá amigo.

 

Veja se ajuda:

 

Dim fluxoTexto As IO.StreamReader
Dim linhaTexto As String

  fluxoTexto = New IO.StreamReader(txtarquivo.Text)
  linhaTexto = fluxoTexto.ReadLine

While Not fluxoTexto.EndOfStream
	
	Dim colunas As String() = linhaTexto.Split(New Char() {" "c}) 'separa no array a cada espaço da linha

	'Aqui, colunas ficaria num array, da seguinte forma:
	'colunas(0) - Código:1
	'colunas(1) - Descição:teste
	'colunas(2) - Ação:Inserir
	
	'Caso necessário, você deverá novamente fazer um split tendo como delimitador ":", assim ficaria outro array com 2 posicionamentos, por exeplo:
	
	dim codigo as String() = colunas(0).split(":")
	'codigo ficaria:
	'codigo(0) - Ccódigo
	'codigo(1) - 1

   	linhaTexto = fluxoTexto.ReadLine

End While

  fluxoTexto.Close()

Separando as strings, então você adiciona a linha manualmente.

 

No site do marcoratti, possui um exemplo mais detalhado:

http://www.macoratti.net/vbn_txt.htm

 

[]s