Escribir en un archivo de texto

Artículo
10/07/2008

Actualización: noviembre 2007

En esta lección, aprenderá a escribir una cadena en un archivo de texto en Visual Basic mediante My.Computer.FileSystem (Objeto).

La lección anterior, Recuperar los nombres de los archivos de una carpeta, describe cómo crear una aplicación Visor de imágenes que muestra imágenes contenidas en una carpeta en un cuadro de imagen. El paso siguiente es guardar los nombres de sus imágenes favoritas en un archivo de texto.

Conceptos básicos de los archivos

Antes de escribir en un archivo de texto, hay ciertos conceptos que debe conocer. El objeto My en Visual Basic simplifica el trabajo con archivos. Puede escribir en archivos guardados en un equipo mediante My.Computer.FileSystem (Objeto).

Puede usar My.Computer.FileSystem.WriteAllText (Método) para escribir una cadena en un archivo de texto. Si no existe el archivo, este método lo creará. Puede indicar que desea agregar el texto al archivo, en lugar de sobrescribir el texto existente, pasando True como el parámetro append.

Nota:
En Windows XP, hay carpetas especiales denominadas MisDocumentos, MisImágenes y MiMúsica. En Windows Vista, estas carpetas no llevan "Mi" en el nombre, sino que se denominan Documentos, Imágenes y Música. Utilizaremos estas carpetas en esta lección. Sin embargo, el código de esta lección se puede ejecutar en Windows XP y Windows Vista.

Inténtelo.

Para anexar texto a un archivo de texto

Abra el proyecto Visor de imágenes de la lección anterior. Si aún no lo ha completado, vaya a Recuperar los nombres de los archivos de una carpeta y finalice la lección antes de continuar.
En el Explorador de soluciones, seleccione Form1.vb y, a continuación, en el menú Ver, haga clic en Diseñador.
Agregue un control Button al formulario, al lado del botón Cargar imágenes y denomínelo FavoritesAdd.
Cambie las siguientes propiedades de este botón:

Propiedad

Valor

Text

Agregar a Favoritos

Size

92, 23
Haga doble clic en el botón Agregar a Favoritos y agregue el código siguiente al controlador de eventos FavoritesAdd_Click. Este código agrega el texto seleccionado en el cuadro de lista al archivo FavoritePictures.txt.
```
If PictureBox1.ImageLocation <> "" Then

    ' Add the selected picture to the favorites text file.
    My.Computer.FileSystem.WriteAllText(FavoritePictures, _
        Me.ListBox1.SelectedItem & ",", True)

End If
```
Agregue el código siguiente encima del controlador de eventos FavoritesAdd_Click. Este código define la ruta de acceso y el nombre de archivo para la variable FavoritePictures.
```
Dim FavoritePictures As String = _
    My.Computer.FileSystem.SpecialDirectories.MyDocuments _
    & "\FavoritePictures.txt"
```
Presione F5 para ejecutar el código.
Haga clic en Cargar imágenes y haga clic en su imagen favorita de la lista.
Haga clic en Agregar a Favoritos.
Abra el archivo FavoritePictures.txt guardado en la carpeta Documentos para comprobar que el nombre de la imagen se anexa al archivo.