IBM Lotus Symphony
|
Cierra todos los archivos abiertos y escribe el contenido de todos las memorias intermedias en el disco duro.
Restablecer
Sub EjemploReset
On Error Goto ManejadorError
Dim iNumero As Integer
Dim iContador As Integer
Dim sLinea As String
Dim aArchivo As String
aArchivo = "c:\data.txt"
iNumero = Freefile
Open aArchivo For Output As #iNumero
Print #iNumero, "Esta es una línea de texto"
Close #iNumero
iNumero = Freefile
Open aArchivo For Input As iNumero
For iContador = 1 to 5
Line Input #iNumero, sLinea
If sLine <>"" then
rem
end if
Next iContador
Close #iNumero
Exit Sub
ManejadorError:
Restablecer
MsgBox "Todos los archivos se cerrarán",0,"Error"
End Sub