¿Cómo leer archivos .txt locales usando vb.net?

Leer el archivo especificado

'

'Leer el archivo de texto especificado

Función pública readtext(Ruta ByVal Como String)

Si ruta = "" Entonces

readtext = "¡La operación falló!"

Salir de la función

Finalizar si

Intente

Si File.Exists(ruta) = True, entonces

Atenuar fs como nuevo FileStream(ruta, FileMode.

Atenuar sr como nuevo StreamReader(fs)

Dim str As String

str = sr.ReadToEnd.ToString

sr.Close()

fs.

Finalizar si

Capturar ex como excepción

readtext = "La operación falló".

Finalizar si

Captura ex como excepción

readtext = "¡La operación falló!

Finalizar intento

Finalizar función

'Escribir datos en el archivo especificado

Función pública writetext(Ruta ByVal como cadena, ByVal opi como entero, mensaje ByVal como cadena)

Si ruta = "" Entonces

writetext = "La operación falló !"

Función de salida

Finalizar si

Atenuar op como modo de archivo

Seleccionar caso opi

Caso 1

op = FileMode.Append

Caso 2

Crear

Caso más

op = FileMode.Create

Finalizar selección

Probar

Si File.Exists(ruta) = True Entonces

Atenuar fs como nuevo FileStream(ruta, op )

Atenuar sr como nuevo StreamWriter(fs)

sr.WriteLine(msg)

sr.Close()

fs. writetext = "¡Operación completada! "

Archivo Ellf.

Else

writetext = "¡La operación falló! "

Finalizar si

Capturar ex como excepción

Writetext = "¡La operación falló!"

Finalizar si

Capturar ex como excepción

Escribir texto = "¡La operación falló!

Finalizar intento

Finalizar función

Consulte este

'

'código fuente de vb.net de www.c-pet.co

m