IBM Lotus Symphony


FreeFile-funktio [käytönaikainen]

Palauttaa seuraavan tiedoston avaamista varten käytettävissä olevan tiedoston numeron. Tämän funktion avulla voit käyttää tiedoston avaamiseen numeroa, joka ei ole jo tällä hetkellä avattuna olevan tiedoston käytössä.

Syntaksi:

FreeFile

Palautusarvo:

Kokonaisluku

Parametrit:

Funktiota voi käyttää vain juuri ennen Open-lausetta. FreeFile palauttaa seuraavan käytettävissä olevan tiedoston numeron, mutta ei varaa sitä.

Virhekoodit

5 Virheellinen toimintokutsu

67 Liian monta tiedostoa

Esimerkki:

Sub ExampleWorkWithAFile

Dim iNumber As Integer

Dim sLine As String

Dim aFile As String

Dim sMsg as String

aFile = "c:\data.txt"

sMsg = ""

iNumber = Freefile

Open aFile For Output As #iNumber

Print #iNumber, "Ensimmäinen tekstirivi"

Print #iNumber, "Toinen tekstirivi"

Close #iNumber

iNumber = Freefile

Open aFile For Input As #iNumber

While not eof(#iNumber)

Line Input #iNumber, sLine

If sLine <>"" then

sMsg = sMsg & sLine & chr(13)

end if

wend

Close #iNumber

Msgbox sMsg

End Sub


Palautetta tuotteesta | Lisäohjeet | Tavaramerkit