Uwaga
Funkcja, metoda, obiekt lub właściwość opisane w tym temacie są wyłączone, jeśli usługa wyrażeń Microsoft Jet działa w trybie piaskownicy, co uniemożliwia ocenę potencjalnie niebezpiecznych wyrażeń. Aby uzyskać więcej informacji o trybie piaskownicy, wyszukaj termin "tryb piaskownicy" w Pomocy.
Zwraca liczbę całkowitą odpowiadającą następnemu numerowi pliku dostępnemu do użycia w instrukcji Open .
Składnia
WolnyPlik[(numer_zakresu)]
Opcjonalny argument rangenumber jest argumentem typu Variant określającym zakres, z którego ma zostać zwrócony następny wolny numer pliku. Określ wartość 0 (domyślnie), aby zwrócić numer pliku z zakresu od 1 do 255 włącznie. Należy określić wartość 1, aby zwrócić numer pliku z zakresu 256 – 511.
Uwagi
Użyj FreeFile, aby podać numer pliku, który nie jest jeszcze używany.
Przykład
Uwaga
Poniższe przykłady przedstawiają sposób użycia tej funkcji w module języka Visual Basic for Applications (VBA). Aby uzyskać dodatkowe informacje na temat pracy w języku VBA, wybierz pozycję Dokumentacja dewelopera z listy rozwijanej obok przycisku Wyszukaj i wprowadź odpowiednie terminy w polu wyszukiwania.
W tym przykładzie użyto funkcji FreeFile w celu zwrócenia następnego dostępnego numeru pliku. Pięć plików jest otwieranych jako wyjściowe w pętli, a niektóre przykładowe dane są zapisywane w każdym z nich.
Dim MyIndex, FileNumber
For MyIndex = 1 To 5 ' Loop 5 times.
' Get unused file number.
FileNumber = FreeFile
' Create file name.
Open "TEST" & MyIndex For Output As #FileNumber
' Output text.
Write #FileNumber, "This is a sample."
' Close file.
Close #FileNumber
Next MyIndex