Visual Basic - Leer un archivo de texto de una carpeta

Autor: Ingeniero magfeliz -at- hotmail -punto- com 1

Fecha: 19/06/2008 15:00:38
Asunto: Leer un archivo de texto de una carpeta
Saludos!!! Amigos Expertos en VB, de este maravilloso foro:

...Se me ha presentado una necesidad en el trabajo de Leer un archivo de texto txt ubicado en una carpeta de windows (p. ej., C:Carpeta), el archivo se llama Archivo.txt, primeramente quiero cambiarle el nombre a ArchivoGeneral.txt (puede ser en la misma carpeta) para luego llevar sus registros a sql (aunque este ultimo paso puedo yo hacerlo independientemente), soy nuevo en Vb, y quisiera que alguien me ayudara a presentar el algoritmo de al menos cambiarle el nombre a dicho archivo y leerlo, aunque ya lo otro de enviarlo a una BD -Sql, Access o Excell- yo tengo la idea de como hacerlo, si por favor alguien me puede dar una mano en esto, se lo agradeceria sobremanera. De Antemano, Muchas Gracias...

la manera mas facil
--------------------------------------
Private Sub Command1_Click()
On Error GoTo error
Name "c:Archivo.txt" As "c:ArcivoGeneral.txt"
Exit Sub
error: MsgBox Err.Description, vbExclamation, "Error"
End Sub

Con esto puedes acceder al contenido del fichero de texto.

Dim nfich As Integer
nfich = FreeFile
Open NombreFichero For Input As #nfich
'Todo el contenido del fichero está en nfich
'Para obtener el contenido linea a linea y guardarlo en una variable (LiNeA)
While Not EOF(nfich)
Line Input #nfich, LiNeA
'Ahora se puede manipular una sola linea
Wend

Espero que te sirva
Un saludo