Instructie Open

Opent een gegevenskanaal.

Open pathname For mode [Access io] [locking] As [#]filenum [Len=recLen]

padnaam: Pad en naam van het te openen bestand. Als bij het lezen het bestand (Access: Read), treedt er een fout op. Als het bestand niet bestand bij het schrijven (Access: Write), wordt er een bestand aangemaakt.

mode: Hier wordt de bestandsmode aangegeven. Mogelijke waarden zijn: Append (toevoegen aan sequentieel bestand), Binary (gegevens kunnen benaderd worden op niveau van een byte met behulp van Get en Put), Input (opent gegevenskanaal voor lezen), Output (opent gegevenskanaal voor schrijven) en Random (wijzigen relatieve bestanden).

io: Hier wordt het toegangstype aangegeven. Mogelijke waarden zijn: Read (read-only), Write (write-only), Read Write (beide).

vergrendeling: Hier wordt de veiligheidsstatus na het openen van een bestand aangegeven. Mogelijke waarden zijn: Shared (bestand kan door een andere applicatie worden geopend), Lock Read (bestand wordt beschermd tegen het lezen), Lock Write (bestand wordt beschermd tegen het schrijven), Lock Read Write (bestand wordt beschermd tegen toegang).

bestandsnummer: Een getal tussen 0-511 dat een vrij gegevenskanaal aangeeft. U kunt commando's via het gegevenskanaal doorgeven om het bestand te benaderen. Het bestandsnummer moet met de functie FreeFile worden bepaald direct voor de instructie Open.

recordLengte: Bepaalt de lengte van records bij het Random benaderen van bestanden.

Een bestand moet worden geopend met het Open statement vóór de bestandsinhoud kan worden gewijzigd. Als u probeert een bestand te openen dat al geopend is verschijnt een foutboodschap.

  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
  

Als met de instructie Open een bestand wordt geprobeerd te open waartoe de huidige gebruiker geen lees/schrijfrechten heeft, dan treedt er een I/O-fout op.