FileAttr Function

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

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

བལྟ་ཡང་: ཕྱེ

Syntax:


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

Return value:

ཧྲིལ་ཨང་།

Parameters:

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

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

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

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

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

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

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

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

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

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

Error codes:

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

༥༢ བྱང་ཉེས་ཡིག་སྣོད་མིང་ཡང་ན་ཨང་གྲངས་

Example:


Sub ExampleFileAttr
    Dim iNumber As Integer
    Dim sLine As String
    Dim aFile As String
    aFile = "C:\Users\ThisUser\data.txt"
    iNumber = Freefile
    Open aFile For Output As #iNumber
    དཔར་བསྐྲུན་འབད#ཨའི་ཨང་ "This is a line of text"
    MsgBox FileAttr(#iNumber, 1), 0, "Access mode"
    MsgBox FileAttr(#iNumber, 2), 0, "File attribute"
    Close #iNumber
End Sub