IBM Lotus Symphony


Funkcja FreeFile [środowisko wykonawcze]

Służy do zwracania następnego dostępnego numeru pliku używanego do otwierania pliku. Ta funkcja jest używana do otwierania pliku z użyciem numeru pliku, który nie jest używany przez żaden bieżący otwarty plik.

Składnia

FreeFile

Zwracana wartość

Liczba całkowita

Parametry

Tej funkcji można użyć tylko bezpośrednio przed instrukcją Open. Funkcja FreeFile zwraca następny dostępny numer pliku, ale nie rezerwuje tego numeru.

Kody błędów

5 Nieprawidłowe wywołanie procedury

67 Za dużo plików

Przykład

Sub PrzykladPracyZPlikiem

Dim iNumer As Integer

Dim sWiersz As String

Dim aPlik As String

Dim sKom as String

aPlik = "c:\data.txt"

sKom = ""

iNumer = Freefile

Open aPlik For Output As #iNumer

Print #iNumer, "Pierwszy wiersz tekstu"

Print #iNumer, "Inny wiersz tekstu"

Close #iNumer

iNumer = Freefile

Open aPlik For Input As #iNumer

While not eof(iNumer)

Line Input #iNumer, sWiersz

If sWiersz <>"" then

sKom = sKom & sWiersz & chr(13)

end if

wend

Close #iNumer

Msgbox sKom

End Sub


Opinia na temat produktu | Dodatkowa dokumentacja | Znaki towarowe