FreeFile Function
གཤམ་གྱི་ཡིག་ཆ་ཨང་སྒྲིག་གིས་ཡིག་ཆ་ཁ་ཕྱེས་པ་ཕྱིར་ལོག་བྱེད་རྟེན་གྲངས་འདི་གཡར་ཏེ་མིག་སྔར་ཁ་མ་ཕྱེས་བའི་ཡིག་ཆ་སྤྱོད་པའི་ཡིག་ཆའི་ཨང་སྒྲིག་བརྒྱུད་ཡིག་ཆ་གཅིག་ཁ་ཕྱེས།
བརྡ་འཕྲོད་
FreeFile
ཕྱིར་ལོག་ཐང་
ཧྲིལ་གྲངས་
ཁུགས་གྲངས་
རྟེན་གྲངས་འདི་རྗེས་ལ་ངེས་པར་དུ་ Open བརྗེད་པ་འབྲངས་ཡོད་གཤམ་གྱི་སྤྱོད་རུང་བའི་ཡིག་ཆའི་སྒྲིག་ཨང་ཕྱིར་ལོག་བྱེད་ཡིན་ནའང་སྒྲིག་ཨང་འདི་སོར་ཉར་མི་བྱེད།
དཔེ་གཞི་
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
Print #iNumber, "First line of text"
Print #iNumber, "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