IBM Lotus Symphony
|
Lukker alle åbne filer og skriver indholdet af alle filbuffere til harddisken.
Nulstil
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