SetAttr Statement
གཏན་འཁེལ་ཡིག་ཆའི་གཏོགས་གཤིས་ཆགའཕྲིན་བཀོད་སྒྲིག་
བརྡ་འཕྲོད་
SetAttr FileName As String, Attribute As Integer
ཁུགས་གྲངས་
FileName གཏོགས་གཤིས་ཚོད་བགམ་བྱ་དགོས་པའི་ཡིག་ཆའི་མིང་ལ་བརྒྱུད་ལམ་འདུས་ཡོད། SetAttr ཡིས་མིག་མདུན་དཀར་ཆག་ནང་ཡིག་ཆ་འདི་བཤེར་འཚོལ་བྱེད། URL མཚོན་ཐབས་ཀྱང་སྤྱད་ཆོག་
Attribute གནས་མ་ཚུལ་ནི་བཀོད་སྒྲིག་བྱེད་དགོས་པ་གཏན་འཁེལ་ལམ་གཏོགས་གཤིས་གཙང་སེལ་ལ་སྤྱོད་
གྲངས་ཐང་
|
Named constant |
Value |
Definition |
|
ATTR_NORMAL |
0 |
Normal files. |
|
ATTR_READONLY |
1 |
Read-only files. |
|
ATTR_HIDDEN |
2 |
Hidden file |
གཏན་ཚིགས་སམ་རྗོད་པ་ཚོ་སྒྲིག་ལྟོས་བཅས་ཀྱི་ཐང་ནི་གཏོགས་གཤིས་རིགས་མང་པོ་བཀོད་སྒྲིག་བྱེད་ཆོག་
དཔེ་གཞི་
Sub ExampleSetGetAttr
On Error Goto ErrorHandler REM ནོར་འཁྲུལ་ཐག་གཅོད་བྱ་རིམ་གྱི་དམིགས་འབེན་མཚམས་འཇོག་
If Dir("C:\test",16)="" Then MkDir "C:\test"
If Dir("C:\test\autoexec.sav")="" Then FileCopy "c:\autoexec.bat", "c:\test\autoexec.sav"
SetAttr "c:\test\autoexec.sav" ,0
FileCopy "c:\autoexec.bat", "c:\test\autoexec.sav"
SetAttr "c:\test\autoexec.sav" , ATTR_READONLY
Print GetAttr( "c:\test\autoexec.sav" )
End
ErrorHandler:
Print Error
End
End Sub