Uwaga: Funkcja, metoda, obiekt lub właściwość opisana w tym temacie jest wyłączona, jeśli usługa wyrażeń programu Microsoft Jet działa w trybie piaskownicy, co uniemożliwia ocenę potencjalnie niebezpiecznych wyrażeń. Aby uzyskać więcej informacji na temat trybu piaskownicy, wyszukaj "tryb piaskownicy" w Pomocy.
Zwraca liczbę całkowitą reprezentującą następną numer pliku do użycia w instrukcji Open.
Składnia
FreeFile[(numer_zakresu)]
Opcjonalny argument numer_zakresu jest wariantem określającym zakres, z którego ma zostać zwrócony następny bezpłatny numer pliku. Określ wartość 0 (wartość domyślna), aby zwrócić numer pliku z zakresu od 1 do 255 włącznie. Określ wartość 1, aby zwrócić numer pliku z zakresu od 256 do 511.
Spostrzeżenia
Użyj pliku FreeFile, aby podać numer pliku, który nie jest jeszcze w użyciu.
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. W pętli jest otwartych pięć plików, 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
