Trabajar con Archivos II
- Archivos de Texto
Vamos a escribir código para cuando el usuario haga click en un archivo de la lista de archivos (capítulo 15), su contenido se muestre en un cuadro de texto.
El código puede ser el siguiente:
Private Sub File1_Click()
Dim nuevalinea As String, LTexto As String, Texto As String, Archivo As String
nuevalinea = Chr$(13) + Chr$(10)
Archivo = File1.Path & "\" & File1.filename
Open Archivo for Input As #1
Do Until EOF(1)
Line Input #1, LTexto
Texto = Texto & LTexto & nuevalinea
Loop
Text1.Text = Texto
Close #1
End Sub
Cuando el usuario selecciona un determinado archivo de la lista, su nombre se especifica en la propiedad filename del cuadro de lista de archivos. Tienes que indicar la ruta de acceso completa, por lo cual se concatena el directorio, que se encuentra en la propiedad Path y el caráter \ como separador de directorios.
Una vez tenemos en la variable Archivo el nombre y ruta completa del archivo que deseamos mostrar, es necesario abrir dicho archivo. Para ello utilizamos la instrucción Open.
La instrucción Open necesita el nombre del archivo que tiene que abrir y el modo en que se va a abrir.
En la línea Open Archivo for Input As #1, el archivo a abrir está situado en la variable Archivo, en modo de lectura, especificado mediante la instrucción Input y su número asociado que es el #1.
Una vez tenemos abirto el archivo en modo lectura, utilizamos la variable LTexto para ir almacenando cada una de la líneas del archivo de texto. Para ello utilizamos la instrucción Line Input donde se indica el número del archivo y la variable en al que se guarda la línea de texto.
Esta instrucción se situa en un bucle Do Until...Loop repitiéndose hasta que se llega al final del archivo de texto especificado por la condición EOF(1).
En la línea Text1.Text = Texto, es donde se asocia el contenido del archivo con el cuadro de texto del formulario a través de su propiedad Text.
Finalmente se cierra el archivo mediante la instrucción Close #1.
- La intrucción FileCopy
La instrucción FileCopy nos permite realizar una copia de un determinado archivo.
La síntaxis de esta instrucción es:
FileCopy fuente, destino
La fuente es el archivo que queremos copiar y el destino es el archivo que será resultado de la copia.
El archivo fuente tiene que estar cerrado antes de utilizar esta instrucción ya que en caso contrario se producirá un error en tiempo de ejecución. Con la instrucción FileCopy puedes copiar cualquier archivo independientemente de su tipo.
 Capítulo
15 |
Capítulo 17 |
