Inhoud
Index 🔎︎

# Functie FreeFile

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

### Geretourneerde waarde:

Integer

### Parameters:

Deze functie moet direct vóór een instructie Open 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:\Users\ThisUser\data.txt"
          iNumber = Freefile
          Open aFile For Output As #iNumber
          Print #iGetal, "Dit is een 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

      Sub ExampleWorkWithAFile
          Dim iNumber As Integer
          Dim sLine As String
          Dim aFile As String
          Dim sMsg As String
          aFile = "~/data.txt"
          iNumber = Freefile
          Open aFile For Output As #iNumber
          Print #iGetal, "Dit is een 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

Verwante onderwerpen

Instructie Close

Instructie Open

Instructie Print#