Visual Basic - ESCRIBIR Y LEER UN ARCHIVO DE TEXTO

ESCRIBIR Y LEER UN ARCHIVO DE TEXTO: QUIERO HACER JUSTAMENTE ESTO, PRIMERO CREAR EL ARCHIVO Y DESPUES IR AGREGANDOLE LINEAS DE TEXTO POR CADA ACCION QUE SE HAGA . NO ME ACUERDO BIEN LAS PROPIEDADES. AYUDA PLEASE!"

Lo que quieres hacer ALE, puede hacerse de una forma bastante sencilla.

Te lo muestro en el código siguiente:

Dim TextFileName As String 'Esta variable contiene el nombre del archivo de texto.
'En mi ejemplo el archivo es "C:\texto.txt"

FileName = "C:\texto.txt"

'Para crear el archivo:

Open TextFileName For Append As #1
Close #1

'Para escribir en él:

Dim TextToWrite As String 'Contiene el texto a escribir

TextToWrite = "Hola, soy una prueba"

'Esto escribe en el final del archivo de texto la cadena "Hola, soy una prueba"

Open TextFileName For Append As #1
Print #1, TextToWrite
Close #1

Comentarios:

No hace falta crear un archivo antes de escribir en él puesto que cuando se llama a la instrucción Open, si el archivo no existe se crea antes.

For Append - indica que abrimos el archivo para escribir en él (los datos se añaden al final del archivo). Puedes optar, como una entre otras opciones, por escribir For Binary, por ejemplo:

Open TextFileName For Binary As #1

Esta instrucción permite recoger y añadir datos en un archivo.

Recoger datos:
Para recoger datos se debe crear un buffer donde se guardarán estos posteriormente.
Dim Data As String 'Variable Buffer que contendrá los datos a recoger

Open TextFileName For Binary As #1 'Se abre el archivo
Data=Space(LOF(1)) 'Se crea el Buffer
'LOF(1) indica el tamaño en bytes del archivo (toma como parámetro el número de archivo, en este caso 1.
Get #1,,Data 'Se recogen todos los datos del archivo en la variable Data
Close #1 'Se cierra el archivo

Para añadir datos

Dim TextToWrite As String 'Contiene el texto a escribir

TextToWrite = "Hola, soy una prueba"

Open TextFileName For Binary As #1 'Se abre el archivo
Put #1,,TextToWrite 'Se añaden los datos de la variable en el archivo
Close #1 'Se cierra el archivo

Espero que estos ejemplos de código te sirvan.

Hasta otra

Zoto