FreeFile, functie

Opmerking:  We willen u graag zo snel mogelijk de meest recente Help-inhoud in uw eigen taal bieden. Deze pagina is automatisch vertaald en kan grammaticale fouten of onnauwkeurigheden bevatten. Wij hopen dat deze inhoud nuttig voor u is. Kunt u ons onder aan deze pagina laten weten of de informatie nuttig voor u was? Hier is het Engelstalige artikel ter referentie.

Opmerking: De functie, de methode, het object of de eigenschap die wordt beschreven in dit onderwerp is uitgeschakeld als de Microsoft Jet Expression-service wordt uitgevoerd in de sandbox-modus. In deze modus wordt de evaluatie van mogelijk onveilige expressies voorkomen. Als u meer wilt weten over de sandbox-modus, zoekt u in de Help naar 'sandbox-modus'.

Geeft als resultaat een geheel getal dat staat voor het volgende bestandsnummer beschikbaar maken voor gebruik met de instructie openen .

Syntaxis

FreeFile [(rangenumber)]

Het argument optioneel rangenumber is een Variant die het bereik waaruit het bestandsnummer van de volgende gratis aangeeft moet worden geretourneerd. Geef een 0 (standaardinstelling) om een bestand getal in het bereik 1 – 255 te retourneren. Geef een 1 om een bestand getal in het bereik 256 – 511 te retourneren.

Opmerkingen

Gebruik FreeFile om een bestandsnummer die nog niet is gebruikt.

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 om terug te keren het bestandsnummer van de volgende beschikbare. Vijf bestanden worden geopend voor de lus en enkele voorbeeldgegevens op elk is 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
Uw Office-vaardigheden uitbreiden
Training verkennen
Als eerste nieuwe functies krijgen
Deelnemen aan Office Insiders

Was deze informatie nuttig?

Bedankt voor uw feedback.

Hartelijk dank voor uw feedback! Het lijkt ons een goed idee om u in contact te brengen met een van onze Office-ondersteuningsagents.

×