Autor: |
Konstantin
Komissarchik |
Traductor: |
Daniel
Quintero Rojas |
Fecha: |
febrero
del 2000 |
Fuente: |
Visual
Basic Programmer's Journal (http://www.vbpj.com) |
Descripción: |
Dos
funciones que envuelven la lectura y escritura de archivos de texto |
Estas dos
funciones envuelven, para la mayoría de los casos, la funcionalidad para
leer y escribir archivos de texto:
Public Function ReadFile(FileName As String) As String
Dim hFile As Integer
hFile = FreeFile
On Error GoTo ErrorTrap
Open FileName For Input As #hFile
ReadFile = Input(LOF(hFile), hFile)
Close #hFile
Exit Function
ErrorTrap:
ReadFile = ""
End Function
Public Sub WriteFile(FileName As String, Contents As String)
Dim hFile As Integer
hFile = FreeFile
On Error Resume Next
Open FileName For Output As #hFile
Print #hFile, Contents;
Close #hFile
End Sub
|
Una vez puestas
estas funciones en tu proyecto, puedes leer y escribir archivos de texto
rápidamente. Por ejemplo, esta es una forma en que puedes usar estas funciones
para copiar archivos:
Call WriteFile("c:b.txt", ReadFile("c:a.txt"))
|
|