Open Statement

Daatu chanele fananno.

Syntax:


Open FileName As String [For Mode] [Access IOMode] [Protected] As [#]FileNumber As Integer [Len = DatasetLength]i37502

Parameters:

FileName: Name and path of the file to open. If you try to read a file that does not exist (Access = Read), an error message appears. If you try to write to a file that does not exist (Access = Write), a new file is created.

Gara: Faylete gara badanno qaraqaale. Addimmo hornyuwa: Maxxagisi (aantete faylera maxxagisi), Laminaate (daatu haare woratenni bayitetenni injeessamanno), Eo (nabbawate daatu chanele fananno), Guma(borreessate daatu chanele fananno), hattono Hedeweelcho(riletive faylla muccisanno).

IoGara: Injo dana tiranno qaraqaale. Addimmo hornyo: Nabbawi(nabbawa calla), Borreessi(Borreessa calla), Nabbawanna Borreessa(lamenka).

Gargaraminoha: fayle fanihu gedensaanni gargarooshshu deerra tiranno qaraqaale. Addimmo Hornyuwa: Guatamme(kayle wole loosansiisonni fa'nama dandiitanno), Nabbawa Wawaansi(fayle nabbawatenni gargarantino), Borreessa Waawaansa( fayle borreessatenni gargarantino),Nabbawa Borreessa Waawaansa(faylete injo diloossanno).

FayleteKiiro: Fano daati chaanale leellishanno 0nni 511 geeshsha noo intijerete handaara. Fayle injeessate hajajo daatu chanale widoonni sayisa daandaatto. Faylete kiiro Fano fooliishsho albanni FanoFayle assishshinni tirama hasiisannosi.

DaatuqinooSeendille: Hedeweelchu injo faylaa, maareekkote seendille qineessi.

note

Fani fooliishshonni fa'nantino faylete amado calla soorra dandaatto. Balaxxe fa'nantino fayle fanate wo'naalittoro, so'ro sokka leellitanno.


Example:


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
    #ikiiro attami, "Kuni borrote xuruuraati"
    #ikiiro attami, "Kuni wole borrote xuruuraati"
    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