SetAttr Statement

Sets the attribute information for a specified file.

Syntax:


SetAttr PathName As String, Attributes As Integer

Parameters:

FileName: Name of the file, including the path, that you want to test attributes of. If you do not enter a path, SetAttr searches for the file in the current directory. You can also use URL notation.

Attributes: Bit pattern defining the attributes that you want to set or to clear:

Named constant	Value	Definition
ATTR_NORMAL	0	Normal files.
ATTR_READONLY	1	Read-only files.
ATTR_HIDDEN	2	Hidden file

You can set multiple attributes by combining the respective values with a logic OR statement.

Error codes:

5 Invalid procedure call

53 File not found 53 File not found 53 File not found 53 File not found 53 File not found 53 File not found

70 Permission denied

Example:


Sub ExampleSetGetAttr
 On Error GoTo ErrorHandler ' Define target for 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