Åpnings uttrykk

Åpner en datakanal.

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

stinavn: Sti og navn på filen som skal åpnes. Hvis du prøver å lese en fil som ikke eksisterer (Tilgang = Les), vises en feilmelding. Hvis du prøver å skrive til en fil som ikke eksisterer (Tilgang = Skriv), opprettes en ny fil.

modus: Nøkkelord som spesifiserer filmodus. Gyldige verdier: Append (legg til sekvensiell fil), Binær (data kan nås med byte ved å bruke Get og Put), Input (åpner data kanal for lesing), Output (åpner datakanal for skriving), og Tilfeldig (redigerer relative filer).

io: Nøkkelord som definerer tilgangstypen. Gyldige verdier: Les (skrivebeskyttet), Skriv (skrivebeskyttet), Les Skriv (begge).

låsing: Nøkkelord som definerer sikkerhetsstatusen til en fil etter åpning. Gyldige verdier: Delt (filen kan åpnes av andre programmer), Lås Les (filen er beskyttet mot lesing), Lås skriv (filen er beskyttet mot skriving), Lås Les Skriv (nekter filtilgang).

filenum: Ethvert heltallsuttrykk fra 0 til 511 for å indikere nummeret til en ledig datakanal. Du kan deretter sende kommandoer gjennom datakanalen for å få tilgang til filen. Filnummeret må bestemmes av FreeFile-funksjonen rett før Åpne-setningen.

recLen: For filer med tilfeldig tilgang, angi lengden på postene.

Du kan bare endre innholdet i en fil som ble åpnet med Open-setningen. Hvis du prøver å åpne en fil som allerede er åpen, vises en feilmelding.

  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
      Skriv ut #iNumber, "Dette er en tekstlinje"
      Skriv ut #iNumber, "Dette er en annen tekstlinje"
      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
      Skriv ut #iNumber, "Dette er en tekstlinje"
      Skriv ut #iNumber, "Dette er en annen tekstlinje"
      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
  

Hvis Open-setningen prøver å åpne en fil som gjeldende bruker ikke har lese-/skriverettigheter til, vil en I/O-feil oppstå.