Uwaga: Funkcja, metoda, obiekt lub właściwość opisana w tym temacie jest wyłączona, jeśli usługa wyrażeń Microsoft Jet działa w trybie piaskownicy, co uniemożliwia oszacowanie potencjalnie niebezpiecznych wyrażeń. Aby uzyskać więcej informacji na temat trybu piaskownicy, wyszukaj "tryb piaskownicy" w Pomocy.
Zwraca wartość typu Liczba całkowita reprezentująca następną numer pliku dostępną do użycia przez instrukcję Open .
Składnia
FreeFile[(numer_zakresu)]
Argument opcjonalny numer_zakresu jest wartością typu wariant określającą zakres, z którego ma zostać zwrócony następny bezpłatny numer pliku. Określ wartość 0 (domyślną), aby zwrócić numer pliku w zakresie od 1 do 255 włącznie. Określ 1, aby zwrócić numer pliku w zakresie od 256 do 511.
Uwagi
Użyj pliku 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. W pętli jest otwartych pięć plików, a do każdego z nich jest zapisywanych kilka przykładowych danych.
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