IBM Lotus Symphony


Sætningen Reset [Runtime]

Lukker alle åbne filer og skriver indholdet af alle filbuffere til harddisken.

Syntaks:

Nulstil

Eksempel:

Sub EksempelReset

On Error Goto ErrorHandler

Dim iNummer As Integer

Dim iAntal As Integer

Dim sLinje As String

Dim aFil As String

aFil = "c:\data.txt"

iNummer = Freefile

Open aFil For Output As #iNummer

Print #iNummer, "Dette er en ny linje tekst"

Close #iNummer

iNummer = Freefile

Open aFil For Input As iNummer

For iAntal = 1 to 5

Line Input #iNummer, sLinje

If sLinje <>"" then

rem

End If

Next iAntal

Close #iNummer

Exit Sub

ErrorHandler:

Nulstil

MsgBox "Alle filer lukkes",0,"Fejl"

End Sub


Produktfeedback | Yderligere dokumentation | Varemærker