Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations wOOdy-Soft on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
How can I change file atributes in run?
- Thread starter bon011
- Start date
Mike Lewis
Programmer
Bon011,
Another way of doing this is with the Windows Scripting Host:
oFS = CREATEOBJECT("Scripting.FileSystemObject"
oFile = OFS.GetFile("myfile.doc"
oFile.Attributes = BITOR(oFile.Attributes,1)
The above code will set the ReadOnly attribute. Other values for the second parameter of BITOR will set other attributes. Or use BITAND to clear the attributes.
Let me know if you need more information about this.
Mike
Mike Lewis
Edinburgh, Scotland
Another way of doing this is with the Windows Scripting Host:
oFS = CREATEOBJECT("Scripting.FileSystemObject"
oFile = OFS.GetFile("myfile.doc"
oFile.Attributes = BITOR(oFile.Attributes,1)
The above code will set the ReadOnly attribute. Other values for the second parameter of BITOR will set other attributes. Or use BITAND to clear the attributes.
Let me know if you need more information about this.
Mike
Mike Lewis
Edinburgh, Scotland
- Status
Similar threads
- Locked
- Question