Contents
Index 🔎︎

# FreeFile Function

ཡིག་སྣོད་ཁ་ཕྱེ་ནིའི་དོན་ལུ་ཤུལ་མམ་གྱི་ཐོབ་ཚུགས་པའི་ཡིག་སྣོད་ཨང་དེ་སླར་ལོགཔ་ཨིན། ཡིག་སྣོད་ཨང་ལག་ལེན་འཐབ་མི་ཡིག་སྣོད་ད་ལྟོ་ཁ་ཕྱེ་ཡིག་སྣོད་ཀྱིས་ཧེ་མ་ལས་ལག་ལེན་མ་འཐབ་མི་ལུ་ཁ་ཕྱེ་ནིའི་དོན་ལུ་འ་ནི་ལས་འགན་དེ་ལག་ལེན་འཐབ།

## ཚིག་སྦྱོར:

    FreeFile

## གནས་གོང་སླར་ལོག:

ཧྲིལ་ཨང་།

## ཚད་བཟུང་ཚུ་:

འ་ནི་ལས་འགན་དེ་ཁ་ཕྱེ་གསལ་བཤད་ཀྱི་གདོང་ཁ་དེ་འཕྲལ་ལས་ལག་ལེན་འཐབ་བཏུབ་ཨིན། རང་དབང་ཡིག་སྣོད་ཀྱིས་ཤུལ་མམ་ཐོབ་ཚུགས་པའི་ཡིག་སྣོད་ཨང་དེ་སླར་ལོགཔ་ཨིན་རུང་་ ཟུར་གསོག་མི་འབད།

## Error codes:

༥ ནུས་མེད་བྱ་སྒོའི་ལམ་ལུགས་བོད་བརྡ་

༦༧ ཡིག་སྣོད་ཚུ་ལེ་ཤ་ ༦༧ ཡིག་སྣོད་ཚུ་ལེ་ཤ་ ༦༧ ཡིག་སྣོད་ཚུ་ལེ་ཤ་

## དཔེར་བརྗོད:

    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
        དཔར་བསྐྲུན་ #ཨའི་ཨང་ "First line of text"
        དཔར་བསུཔ་ #ཨའི་ཨང་། "Another line of text"
        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