Pahayag ng SetAttr

Itinatakda ang impormasyon ng katangian para sa isang tinukoy na file.

Syntax:


SetAttr PathName Bilang String, Mga Katangian Bilang Integer

Mga Parameter:

FileName : Pangalan ng file, kasama ang path, na gusto mong subukan ang mga katangian. Kung hindi ka pumasok sa isang landas, SetAttr hinahanap ang file sa kasalukuyang direktoryo. Maaari mo ring gamitin URL notation .

Mga Katangian : Bit pattern na tumutukoy sa mga katangian na gusto mong itakda o i-clear:

Pinangalanang pare-pareho	Halaga	Kahulugan
ATTR_NORMAL	0	Mga normal na file.
ATTR_READONLY	1	Read-only na mga file.
ATTR_HIDDEN	2	Nakatagong file

Maaari kang magtakda ng maramihang mga katangian sa pamamagitan ng pagsasama-sama ng kani-kanilang mga halaga sa isang lohika O pahayag.

Mga error code:

5 Di-wastong procedure call

53 Hindi nahanap ang file

70 Tinanggihan ang pag-access

Halimbawa:


Sub ExampleSetGetAttr
 Sa Error GoTo ErrorHandler ' Tukuyin ang target para sa error handler
 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