Visual Basic - Archivos TXt

Hola Amigos necesito hacer un programa que barra una carpeta en donde dentro de ella pueden existir sub carpetas y dentro de ellas archivos con extencion txt , yo deso barrer estas carpetas y sub carpetas y sacar los nombres de estos txt y guardarlos automaticamente en una tabla hecha en Sql , gracias anticipadamente por au ayuda.

Hola

Dialog.DialogTitle = "Titulo del Open File"
Dialog.filename = "*.txt"
Dialog.Filter = "Text (*.txt)"
Dialog.ShowOpen
archivo = Dialog.filename

Nota aqui ya haz capturado el archivo .txt ya lo que debes hacer es recorrerlo, partiendo de las posiciones como este ubado la infomacion dentro del txt "Archivo Plano" y lo recorres asi

Open archivo For Input As #1

Do While Not EOF(1)
Line Input #1, Registro
Cont = Cont + 1
DoEvents
Loop
Close #1

Do While Not EOF(1) ' Repite el bucle hasta el final del archivo.
Line Input #1, Registro
If Err.Number <> 0 Then
Exit Do
End If
DatGeneral.Resultset.AddNew
DatGeneral.Resultset("strPlanilla") = LTrim(RTrim(Mid(Registro, 49, 14)))
loop

Nota el 49 y el 14 son las posiciones que debera tomar para almacenar en la tabla, osea comenzara desde el 1ª registro pero desde la columna 49 y apartir de alli en las 14 columnas siguientes es lo que el iria a tomar.

Atentamente

Virus
Ingeniero de Sistemas