Opmerking
De functie, de methode, het object of de eigenschap die in dit onderwerp wordt beschreven, is uitgeschakeld als de Microsoft Jet Expression-service wordt uitgevoerd in de sandboxmodus. Hierdoor wordt de evaluatie van potentieel onveilige expressies voorkomen. Zoek in de Help naar 'sandbox-modus' voor meer informatie over de sandbox-modus.
Deze functie retourneert een geheel getal dat het volgende bestandsnummer aangeeft dat beschikbaar is voor gebruik met de Open-instructie.
Syntaxis
FreeFile[(bereiknummer)]
Het argument optioneel bereiknummer is een variant die het bereik specificeert waaruit het volgende vrije bestandsnummer moet worden opgehaald. Geef een 0 (standaardwaarde) op om een bestandsnummer tussen 1 en 255 als resultaat te geven. Geef een 1 op om een bestandsnummer in het bereik 256-511 als resultaat te geven.
Opmerkingen
Gebruik FreeFile om een bestandsnummer op te geven dat nog niet in gebruik is.
Voorbeeld
Opmerking
In de volgende voorbeelden wordt het gebruik van deze functie in een VBA-module (Visual Basic for Applications) toegelicht. Meer informatie over het werken met VBA vindt u door in de vervolgkeuzelijst naast Zoeken de optie Referentie voor ontwikkelaars te selecteren en een of meer termen in het zoekvenster te typen.
In dit voorbeeld wordt de functie FreeFile gebruikt om het eerstvolgende beschikbare bestandsnummer te retourneren. Vijf bestanden worden geopend voor uitvoer binnen de lus en er worden enkele voorbeeldgegevens naar elk bestand geschreven.
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