Open instrukzioa

Datu-kanala irekitzen du.

Sintaxia:

Open instrukzioaren diagrama

atzitze-zatiaren diagrama

blokeo-zatiaren diagrama


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.

note

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