IBM Lotus Symphony
|
Służy do zamykania wszystkich otwartych plików i zapisywania zawartości wszystkich buforów plików na dysku twardym.
Reset
Sub Przyklad_Reset
On Error Goto Obsluga_bledu
Dim iNumer As Integer
Dim iLicznik As Integer
Dim sWiersz As String
Dim aPlik As String
aPlik = "c:\data.txt"
iNumer = Freefile
Open aPlik For Output As #iNumer
Print #iNumer, "To jest nowy wiersz tekstu"
Close #iNumer
iNumer = Freefile
Open aPlik For Input As iNumer
For iLicznik = 1 to 5
Line Input #iNumer, sWiersz
If sWiersz <>"" then
rem
end if
Next iLicznik
Close #iNumer
Exit Sub
Obsluga_bledu:
Reset
MsgBox "Wszystkie pliki zostaną zamknięte",0,"Błąd"
End Sub