SetAttr Instruction

Syntax:
SetAttr Name$, Attrib
Group: File
Description:
Set the attributes for file Name$. If the file does not exist then a run-time error occurs.
Parameter Description

Name$ This string value is the path and name of the file. A path relative to the current directory can be used.
Attrib Set the file's attributes to this numeric value.
Example:

Sub Main
Attrib = GetAttr("XXX")
SetAttr "XXX",1 ' readonly
Debug.Print GetAttr("XXX") ' 1
SetAttr "XXX",Attrib
End Sub