Open instrukzioa

Datu-kanala irekitzen du.

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

pathname: Irekiko den fitxategiaren izena eta bide-izena. Ez dagoen fitxategi bat irakurtzen saiatzen bazara (Access = Read), errore-mezua agertuko da. Ez dagoen fitxategi batean idazten saiatzen bazara (Access = Write), fitxategi berria sortuko da.

mode: Fitxategi modua zehazten duen gako-hitza. Baliozko balioak hauek dira: Append (erantsi fitxategi sekuentzialari), Binary (datuak byten bidez eskuratu daitezke Get eta Put erabiliz), Input (datu-kanala irakurtzeko irekitzen du), Output (datu-kanala idazteko irekitzen du) eta Random (fitxategi erlatiboak editatzen ditu).

io: Atzitze-mota definitzen duen gako-hitza. Baliozko balioak: Read (irakurtzeko soilik), Write (irakurtzeko soilik), Read Write (biak).

locking: Fitxategi bat irekitakoan, haren segurtasun-egoera zehazten duen gako-hitza. Baliozko balioak: Shared (fitxategia beste aplikazio batzuen bidez ireki daiteke), Lock Read (fitxategia irakurketaren kontra babestuta dago), Lock Write (fitxategia idazketaren kontra babestuta dago), Lock Read Write (fitxategi-atzipena ukatzen du).

filenum: 0 eta 511 arteko edozein osoko adierazpen, libre dagoen datu-kanal baten zenbakia adierazteko. Ondoren, datu-kanalaren bidez komandoak pasatu ahal izango dira fitxategia atzitzeko. FreeFile funtzioak berehala zehaztu behar du fitxategi-zenbakia, Open instrukzioaren aurretik.

recLen: Fitxategien Random atzitzerako, ezarri erregistroen luzera.

Open instrukzioaren bidez irekitako fitxategien edukia soilik aldatu daiteke. Lehendik irekita dagoen fitxategia irekitzen saiatzean, errore-mezu bat agertuko da.

  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, "Hau testu-lerro bat da"
      Print #iNumber, "Hau beste testu-lerro bat da"
      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, "Hau testu-lerro bat da"
      Print #iNumber, "Hau beste testu-lerro bat da"
      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
  

Open instrukzioa fitxategi bat irekitzen saiatzen bada eta uneko erabiltzaileak ez badu irakurtzeko/idazteko baimenik, S/I errore bat sortuko da.