GetAttr Function
āĻāĻāĻāĻŋ āĻŦāĻŋāĻ āĻĒā§āĻ¯āĻžāĻāĻžāĻ°ā§āĻ¨ āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻāĻ°āĻž āĻšā§ āĻ¯āĻž āĻāĻāĻāĻŋ āĻāĻ˛āĻŋāĻāĻŽ āĻ āĻĨāĻŦāĻž āĻĄāĻŋāĻ°ā§āĻā§āĻāĻ°āĻŋāĻ° āĻĢāĻžāĻāĻ˛ā§āĻ° āĻ§āĻ°āĻ¨ āĻāĻŦāĻ āĻ¨āĻžāĻŽ āĻļāĻ¨āĻžāĻā§āĻ¤ āĻāĻ°ā§ āĻĨāĻžāĻā§āĨ¤
āĻ¸āĻŋāĻ¨āĻā§āĻ¯āĻžāĻā§āĻ¸:
GetAttr (Text As String)
āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻŽāĻžāĻ¨:
Integer
āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻāĻžāĻ°:
āĻ˛ā§āĻ: āĻ¯ā§āĻā§āĻ¨ā§ āĻ¸ā§āĻā§āĻ°āĻŋāĻ āĻāĻā§āĻ¸āĻĒā§āĻ°ā§āĻļāĻ¨ āĻ¯āĻžāĻ¤ā§ āĻĢāĻžāĻāĻ˛ā§āĻ° āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻ āĻŦā§āĻļāĻŋāĻˇā§āĻā§āĻ¯ā§āĻ° āĻāĻ˛ā§āĻ˛ā§āĻ āĻ°ā§ā§āĻā§āĨ¤ āĻāĻĒāĻ¨āĻŋ URL āĻ¨ā§āĻā§āĻļāĻ¨āĻ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°āĻ¤ā§ āĻĒāĻžāĻ°ā§āĻ¨āĨ¤
āĻāĻ āĻĢāĻžāĻāĻļāĻ¨āĻāĻŋ āĻāĻāĻāĻŋ āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻ āĻĢāĻžāĻāĻ˛ā§āĻ° āĻŦā§āĻˇā§āĻā§āĻ¯āĻžāĻŦāĻ˛ā§ āĻ¨āĻŋāĻ°ā§āĻ§āĻžāĻ°āĻŖ āĻāĻ°ā§ āĻāĻŦāĻ āĻŦāĻŋāĻ āĻĒā§āĻ¯āĻžāĻāĻžāĻ°ā§āĻ¨ āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻāĻ°ā§ āĻ¯āĻž āĻāĻĒāĻ¨āĻžāĻā§ āĻāĻ˛ā§āĻ˛ā§āĻā§āĻ¯ āĻĢāĻžāĻāĻ˛ā§āĻ° āĻŦā§āĻļāĻŋāĻˇā§āĻā§āĻ¯ āĻā§āĻāĻā§ āĻŦā§āĻ° āĻāĻ°āĻ¤ā§ āĻ¸āĻžāĻšāĻžāĻ¯ā§āĻ¯ āĻāĻ°āĻ¤ā§ āĻĒāĻžāĻ°ā§āĨ¤
āĻŽāĻžāĻ¨
|
Named constant |
Value |
Definition |
|
ATTR_NORMAL |
0 |
Normal files. |
|
ATTR_READONLY |
1 |
Read-only files. |
|
ATTR_HIDDEN |
2 |
Hidden file |
|
ATTR_SYSTEM |
4 |
System file |
|
ATTR_VOLUME |
8 |
Returns the name of the volume |
|
ATTR_DIRECTORY |
16 |
Returns the name of the directory only. |
|
ATTR_ARCHIVE |
32 |
File was changed since last backup (Archive bit). |
āĻ¨āĻŋāĻā§āĻ° āĻāĻŋāĻā§āĻāĻžāĻ¸āĻž āĻĒāĻĻā§āĻ§āĻ¤āĻŋāĻāĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°ā§, āĻŦā§āĻļāĻŋāĻˇā§āĻā§āĻ¯ āĻŦāĻžāĻāĻā§āĻ° āĻāĻāĻāĻŋ āĻŦāĻŋāĻ āĻ¨āĻŋāĻ°ā§āĻ§āĻžāĻ°āĻŋāĻ¤ āĻšā§ā§āĻā§ āĻāĻŋāĻ¨āĻž āĻ¤āĻž āĻāĻžāĻ¨āĻž āĻ¯āĻžā§āĨ¤
āĻāĻĻāĻžāĻšāĻ°āĻŖ:
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" ,1
Print GetAttr( "c:\test\autoexec.sav" )
End
ErrorHandler:
Print Error
End
End Sub