SetAttr Statement

āωāĻ˛ā§āĻ˛ā§‡â€ŒāĻ–āĻŋāϤ āĻĢāĻžāχāϞ⧇āϰ āϜāĻ¨ā§āϝ āĻŦ⧈āĻļāĻŋāĻˇā§āĻŸā§āϝ⧇āϰ āϤāĻĨā§āϝ āύāĻŋāĻ°ā§āϧāĻžāϰāĻŖ āĻ•āϰ⧇āĨ¤

āϏāĻŋāύāĻŸā§āϝāĻžāĻ•ā§āϏ:


SetAttr FileName As String, Attribute As Integer

āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāϟāĻžāϰ:

FileName: āφāĻĒāύāĻŋ āϝ⧇ āĻĢāĻžāχāϞ⧇āϰ āĻŦ⧈āĻļāĻŋāĻˇā§āĻŸā§āϝ āĻĒāϰ⧀āĻ•ā§āώāĻž āĻ•āϰāϤ⧇ āϚāĻžāύ āĻĒāĻžāĻĨ āϏāĻš āϤāĻžāϰ āύāĻžāĻŽāĨ¤ āφāĻĒāύāĻŋ āϝāĻĻāĻŋ āĻāĻ•āϟāĻŋ āĻĒāĻžāĻĨ āϏāĻ¨ā§āύāĻŋāĻŦ⧇āĻļ āύāĻž āĻ•āϰāĻžāύ, āϤāĻžāĻšāϞ⧇ SetAttr āĻāϰ āĻŽāĻžāĻ§ā§āϝāĻŽā§‡ āĻŦāĻ°ā§āϤāĻŽāĻžāύ āĻĄāĻŋāϰ⧇āĻ•ā§āϟāϰāĻŋāϤ⧇ āĻāĻ•āϟāĻŋ āĻĢāĻžāχāϞ āĻ…āύ⧁āϏāĻ¨ā§āϧāĻžāύ āĻ•āϰāĻž āϝāĻžā§ŸāĨ¤ āφāĻĒāύāĻŋ URL āύ⧋āĻŸā§‡āĻļāύāĻ“ āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻ•āϰāϤ⧇ āĻĒāĻžāϰ⧇āύāĨ¤

āĻŦ⧈āĻļāĻŋāĻˇā§āĻŸā§āϝ: āφāĻĒāύāĻŋ āϝ⧇ āĻŦ⧈āĻļāĻŋāĻˇā§āĻŸā§āϝ āύāĻŋāĻ°ā§āϧāĻžāϰāĻŖ āĻ…āĻĨāĻŦāĻž āĻ…āĻĒāϏāĻžāϰāĻŖ āĻ•āϰāϤ⧇ āϚāĻžāύ āϤāĻžāϰ āĻŦāĻŋāϟ āĻĒā§āϝāĻžāϟāĻžāĻ°ā§āύ:

āĻŽāĻžāύ

Named constant

Value

Definition

ATTR_NORMAL

0

Normal files.

ATTR_READONLY

1

Read-only files.

ATTR_HIDDEN

2

Hidden file


āϞāϜāĻŋāĻ• OR āĻ¸ā§āĻŸā§‡āϟāĻŽā§‡āĻ¨ā§āĻŸā§‡āϰ āϏāĻžāĻšāĻžāĻ¯ā§āϝ⧇ āϏāĻ‚āĻļā§āϞāĻŋāĻˇā§āϟ āĻŽāĻžāύ āĻāĻ•āĻ¤ā§āϰāĻŋāĻ•āϰāϪ⧇āϰ āĻŽāĻžāĻ§ā§āϝāĻŽā§‡ āĻāĻ•āĻžāϧāĻŋāĻ• āĻŦ⧈āĻļāĻŋāĻˇā§āĻŸā§āϝ āύāĻŋāĻ°ā§āϧāĻžāϰāĻŖ āĻ•āϰāϤ⧇ āĻĒāĻžāϰ⧇āύāĨ¤

Error codes:

5 Invalid procedure call

53 File not found 53 File not found

70 Permission denied

āωāĻĻāĻžāĻšāϰāĻŖ:


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