Obs!
Funksjonen, metoden, objektet eller egenskapen som er beskrevet i dette emnet, er deaktivert hvis Microsoft Jet Expression-tjenesten kjører i sandkassemodus, noe som forhindrer evaluering av potensielt usikre uttrykk. Hvis du vil ha mer informasjon om sandkassemodus, kan du søke etter «sandkassemodus» i hjelpen.
Returnerer et heltall som representerer det neste filnummeret som er tilgjengelig for bruk med Open-setningen.
Syntaks
FreeFile[(rangenumber)]
Det valgfrie rangenumber-argumentet er en variant som angir området som det neste gratis filnummeret skal returneres fra. Angi en 0 (standard) for å returnere et filnummer i området 1–255, inklusive. Angi en 1 for å returnere et filnummer i området 256–511.
Merknader
Bruk FreeFile til å oppgi et filnummer som ikke allerede er i bruk.
Eksempel
Obs!
I eksemplene nedenfor vises bruken av denne funksjonen i en VBA-modul (Visual Basic for Applications). Hvis du vil ha mer informasjon om hvordan du arbeider med VBA, velger du Utviklerreferanse fra rullegardinlisten ved siden av Søk og skriver inn ett eller flere søkeord i søkeboksen.
Dette eksemplet bruker FreeFile-funksjonen til å returnere det neste tilgjengelige filnummeret. Fem filer åpnes for utdata i løkken, og noen eksempeldata skrives til hver av dem.
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