Module
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