IBM Lotus Symphony


Instrukcja Reset [środowisko wykonawcze]

Służy do zamykania wszystkich otwartych plików i zapisywania zawartości wszystkich buforów plików na dysku twardym.

Składnia

Reset

Przykład

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


Opinia na temat produktu | Dodatkowa dokumentacja | Znaki towarowe