Edukiak
Indizea 🔎︎

# Open instrukzioa

Datu-kanala irekitzen du.

### Sintaxia:

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

### Parametroak:

BideIzena: 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.

Modua: 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: Keyword that defines the access type. Valid values: Read (read-only), Write (write-only), Read Write (both).

Babesa: 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: Any integer expression from 0 to 511 to indicate the number of a free data channel. You can then pass commands through the data channel to access the file. The file number must be determined by the FreeFile function immediately before the Open statement.

recLen: For Random access files, set the length of the records.

Open instrukzioaren bidez irekitako fitxategien edukia bakarrik alda dezakezu. Lehendik irekita dagoen fitxategia irekitzen saiatzen bazara, errore-mezua agertuko da.

### Adibidea:

    Sub ExampleWorkWithAFile
    Dim iNumber As Integer
    Dim sLine As String
    Dim aFile As String
    Dim sMsg As String
        aFile = "c:\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