Tenho muitos arquivos de texto em uma pasta. O que posso fazer agora é ler um texto de cada vez e inseri-lo no banco de dados. Meu pequeno aplicativo lê um arquivo de texto quando eu depuro. Portanto, preciso executá-lo várias vezes para ler todos esses arquivos de texto e importá-los para o banco de dado

Minha pergunta é como ler vários arquivos de texto dentro de uma pasta por vez. Aqui está o meu código, que funciona bem, mas lê apenas um arquivo de texto por ve

Private Sub btnRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRead.Click

        Dim filelocation As String
        filelocation = "F:\txtfiles\ch25.txt"
        Dim chid As Integer
        chid = 25



        'read from file'
        Dim MyStream As New StreamReader(Path.Combine(Application.StartupPath, filelocation))
        Dim vArray() As String = MyStream.ReadToEnd.Split(CChar("$"))
        MyStream.Close()



        Dim count As Integer

        'insert text to table'
        For d As Integer = 0 To vArray.Length - 1 Step 1

            If d = vArray.Length - 1 Then
                Exit For
            End If

            InsertKh(chid, d + 1, vArray(d))
            count = d + 1
        Next


       MsgBox ("Done Inserting")

End Sub

Obviamente, eu preciso de uma maneira de percorrer uma pasta e verificar se há arquivo de texto. Mas não consigo acertar. Alguém pode me mostrar algum código ou links? Estou usando o VB.NET, .NET 3.5

Muito obrigado