IBM Lotus Symphony


Instrucción Reset [Ejecución]

Cierra todos los archivos abiertos y escribe el contenido de todos las memorias intermedias en el disco duro.

Sintaxis:

Restablecer

Ejemplo:

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


Comentarios del producto | Documentación adicional | Marcas registradas