Module
Contents
Index 🔎︎

# FreeFile Function

Fayle fanate albisufi faylete kiiro qolanno, xaa fa'nantino fayle giddo horonsi'rantinokki faylete kiiro horonsidhe fayle fanate konne assishsha horonsi'ri.

## Ganallo:

    FreeFile

## Qolote guma:

Intijere

## Eishshuwa:

Kuni assishshi hakkawontenni fa'nantino fooliishsho albaanni horonsi'rantanno. DiriiraFayle albisufi faylete kiiro qoltanno, kayinnilla diamaddanno.

## Error codes:

5 Horiweelo aante woshsho

67 Lowo geeshsha batidhino faylla

## Lawishsha:

    Sub ExampleWorkWithAFile
    Dim iNumber As Integer
    Dim sLine As String
    Dim aFile As String
    Dim sMsg As String
        aFile = "c:\data.txt"
        sMsg = ""
        iNumber = Freefile
        Open aFile For Output As #iNumber
        #iKiiro attami, "Borronniha umi xuruura"
        #iKiiro attami, "Borronniha wole xuruura"
        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