FreeFile-funktion

Innehåll

# FreeFile Function

Returnerar nästa tillgängliga filnummer för att öppna en fil. Använd den här funktionen för att öppna en fil med ett filnummer som inte redan används av en öppen fil.

### Syntax:

    FreeFile

### Returnerat värde:

Integer

### Parametrar:

Den här funktionen kan bara användas omedelbart framför en Open-sats. FreeFile returnerar nästa tillgängliga filnummer, men reserverar det inte.

### Felkoder:

5 Felaktigt proceduranrop

67 För många filer

### Exempel:

      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 #iNumber, "Det här är en textrad"
          Print #iNumber, "Det här är ytterligare en textrad"
          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 #iNumber, "Det här är en textrad"
          Print #iNumber, "Det här är ytterligare en textrad"
          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

Närliggande ämnen

Close Statement

Open Statement

Print# Statement