Functie FreeFile

Module
Inhoud
Index 🔎︎

# FreeFile-functie

Geeft het volgende beschikbare bestandsnummer voor het openen van een bestand terug. Gebruik deze functie om een bestand te openen met behulp van een bestandsnummer dat nog niet door reeds geopende bestanden gebruikt wordt.

## Syntaxis:

    FreeFile

## Teruggegeven waarde:

Integer

## Parameters:

Deze functie moet direct vóór een Open-instructie worden gebruikt. FreeFile geeft het volgende beschikbare bestandsnummer terug, maar zal het niet reserveren.

## Foutcodes:

5 Ongeldige aanroep van procedure

67 Te veel bestanden

## Voorbeeld:

    Sub ExampleWorkWithAFile
    Dim iNumber As Integer
    Dim sLine As String
    Dim aFile As String
    Dim sMsg As String
        aFile = "c:\data.txt"
        sMsg = ""
        iNumber = Freefile
        Open aFile For Output As #iNumber
        Print #iGetal, "Dit is de eerste tekstregel"
        Print #iGetal, "Dit is een andere tekstregel"
        Close #iNumber
        iNumber = Freefile
        Open aFile For Input As #iNumber
        While Not eof(#iNumber)
            Line Input #iNumber, sLine
            If sLine <>"" Then
                sMsg = sMsg & sLine & chr(13)
            End If
        Wend
        Close #iNumber
        MsgBox sMsg
    End Sub