IBM Lotus Symphony


Príkaz Reset [Runtime]

Zatvorí všetky otvorené súbory a zapíše obsah všetkých súborových vyrovnávacích pamätí na pevný disk.

Syntax:

Resetovať

Príklad:

Sub ExampleReset

On Error Goto ErrorHandler

Dim iNumber As Integer

Dim iCount As Integer

Dim sLine As String

Dim aFile As String

aFile = "c:\data.txt"

iNumber = Freefile

Open aFile For Output As #iNumber

Print #iNumber, "Toto je nový riadok textu"

Close #iNumber

iNumber = Freefile

Open aFile For Input As iNumber

For iCount = 1 to 5

Line Input #iNumber, sLine

If sLine <>"" then

rem

end if

Next iCount

Close #iNumber

Exit Sub

ErrorHandler:

Resetovať

MsgBox "Všetky súbory budú zatvorené",0,"Chyba"

End Sub


Spätná väzba na produkt | Ďalšia dokumentácia | Ochranné známky