FileAttr Function

འཛུལ་སྤྱོད་འབད་ནི་ཐབས་ལམ་ཡང་ན་ ཡིག་སྣོད་ཁ་ཕྱེ་ཡོད་མི་དང་གཅིག་ཁར་ཁ་ཕྱེ་གསལ་བཤད་ཀྱི་ཡིག་སྣོད་འཛུལ་སྤྱོད་འབད་ནི་ཨང་དེ་སླར་ལོགཔ་ཨིན། ཡིག་སྣོད་འཛུལ་སྤྱོད་འབད་ནི་ཨང་དེ་བཀོལ་སྤྱོད་འབད་ནི་རིམ་ལུགས་(OSH = Operating System Handle) གུ་རང་དབང་ཡོདཔ་ཨིན།

ཁྱོད་ཀྱིས་བིཊི་ ༣༢ ་བཀོལ་སྤྱོད་རིམ་ལུགས་དེ་ལག་ལེན་འཐབ་པ་ཅིན་ ཁྱོད་ཀྱིས་ཡིག་སྣོད་ཨེ་ཊིཨར་ལས་འགན་ཡིག་སྣོད་འཛུལ་སྤྱོད་འབད་ནི་ཨང་་གཏན་འབེབས་བཟོ་ནི་ལུ་ལག་ལེན་འཐབ་མི་བཏུབ།

བལྟ་ཡང་: ཕྱེ

ཚིག་སྦྱོར:

ཡིག་སྣོད་ཨེཊར (FileNumber As Integer, Attribute As Integer)

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

ཧྲིལ་ཨང་།

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

ཡིག་སྣོད་ཨང་: ཀུན་གྱི་གསལ་བཤད་དང་གཅིག་ཁར་ཁ་ཕྱེ་ཡོད་མི་ཡིག་སྣོད་འདིའི་ཨང་།

ཁྱད་ཆོས་: ཧྲིལ་ཨང་གསལ་བརྗོད་གང་རུང་འདི་ཁྱོད་ཀྱིས་ཡིག་སྣོད་བརྡ་དོན་གྱི་དབྱེ་བ་འདི་བརྡ་སྟོནམ་ཨིན། འོག་གི་གནས་གོང་ཚུ་ཆ་མཉམ་སྲིད:

1: ཡིག་སྣོད་ཨེལཊིར་་ལས་འགན་གྱིས་ཡིག་སྣོད་ཀྱི་ཐབས་ལམ་འཛུལ་སྤྱོད་ཀྱི་བརྡ་སྟོནམ་ཨིན།

༢: ཡིག་སྣོད་ཨཊར་་ལས་འགན་གྱིས་བཀོལ་སྤྱོད་རིམ་ལུགས་ཀྱི་ཡིག་སྣོད་འཛུལ་སྤྱོད་ཨང་འདི་སླར་ལོགཔ་ཨིན།

ཁྱོད་ཀྱིས་ཚད་བཟུང་ཁྱད་ཆོས་གཅིག་ཁར་གནས་གོང་་ ༡ གསལ་བཀོད་འབད་བ་ཅིན་་འོག་གི་སླར་ལོག་གནས་གོང་ཚུ་འཇུག་སྤྱོད་འབད:

༡ - ཨིན་པུཊི(file open for input)

༢ - ཨའུཊི་པུཊི (file open for output)

༤ - གང་བྱུང་ (file open for random access)

༨ - མཇུག་བསྣོན་འབད (file open for appending)

༣༢ - ཟུང་ལྡན (file open in binary mode).

དཔེར་བརྗོད:

Sub ExampleFileAttr

Dim iNumber As Integer

Dim sLine As String

Dim aFile As String

    aFile = "c:\data.txt"

    iNumber = Freefile

    Open aFile For Output As #iNumber

    དཔར་བསྐྲུན་འབད#ཨའི་ཨང་ "This is a line of text"

    འཕྲིན་དོན་སྒྲོམ་ཡིག་སྣོད་ཨཊར(#iNumber, 1 ),0,"Access mode"

    འཕྲིན་དོན་སྒྲོམ་ཡིག་སྣོད་ཨཊར(#iNumber, 2 ),0,"File attribute"

    Close #iNumber

End Sub