Cómo agregar una cadena al final de un archivo en Visual Basic 6

la manipulación de archivos es a menudo una necesidad común de los usuarios de programas de ordenador. Visual Basic 6 tiene algunas funciones simples y fáciles de usar que permiten abrir un archivo existente y añadir nueva información al final de la misma, incluidas las cadenas. La clave para la preservación de los datos del archivo existente es para abrirlo en el modo "añadir" para que el programa no sobrescribe el contenido existente. Utilice la función "Escribir" para añadir una cadena al final del archivo, a continuación, cerrarla en el código para evitar cualquier error de escritura.

Instrucciones

1 Abra el proyecto de Visual Basic 6. Haga doble clic en el control "de comando" añadir "Command1" a su formulario. Haga doble clic en "Command1" para acceder al "Command1_Click ()" ventana de código.

2 Escribe lo siguiente para declarar las variables que hay que añadir la cadena en el archivo:

Dim NombreArchivo As String

Dim MiCadena As String

3 Escriba lo siguiente:

filename = "C: \ miArchivo.txt"

Abrir nombre de archivo Para Anexar Como # 1

La función "Abrir" se abre el archivo especificado en la ruta proporcionada a la variable "Nombre de archivo". Si no existe este archivo, VB6 crea el archivo. La función "Añadir" le dice al programa para agregar nuevo contenido al final del archivo. La parte "# 1" especifica que este es el primer archivo que el programa tiene abierta. Es posible utilizar otro número (o una variable entera) si tiene más de un archivo abierto a la vez en el programa.

4 Escriba lo siguiente:

miCadena = "Mi cadena"

Escribir # 1, mystring; vbNewLine

Close # 1

La primera línea define una cadena que va a agregar al final del archivo. La segunda línea utiliza la función "Escribir" para añadir la cadena, a continuación, añade una nueva línea en el archivo para que sea más legible. La última línea se cierra el archivo.