Visual Basic.NET - Leer un archivo de texto de una carpeta

   
Vista:

Leer un archivo de texto de una carpeta

Publicado por Ingeniero (16 intervenciones) el 19/06/2008 15:14:24
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...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Leer un archivo de texto de una carpeta

Publicado por Hector (78 intervenciones) el 19/06/2008 17:02:23
'COMPRUEBA SI LA CARPETA EXISTE
If Dir("C:PRODUCCION", vbDirectory) = "" Then
Dim mensaje As String
mensaje = "Debe descargar la carpeta denominada PRODUCCION del servidor y guardarla en la unidad C:"
MsgBox("El archivo que se busca no se encuentra en este Computador: " + mensaje, MsgBoxStyle.Critical, ".:|Control de Producciones|:.")
Else
Dim archivo As New StreamReader("C:PRODUCCIONProducciones.txt")
Dim archivo1 As String
'LEE ARCHIVO LINEA A LINEA
archivo1 = archivo.ReadLine()
Do While Not archivo1 Is Nothing
Console.WriteLine(archivo1)
archivo1 = archivo.ReadLine()
Loop
End If

Para renombrar el archivo de texto prueba con esto:

filesystem.Rename("nombre_antiguo.txt","nombre_nuevo.txt")

Espero que te sea de ayuda
Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar