>>Hi people.
>>How can i change file attribute from read only to write and back?
>>Thank you
>
>You can do this with the FileSystemObject:
>

oFSO = CreateObject("Scripting.FileSystemObject")
>oFile = oFSO.GetFile("d:\temp\package.txt")

> To set it to read only:
>

oFile.Attributes = oFile.Attributes + 1

> To clear the read only:
>

oFile.Attributes = oFile.Attributes - 1

> Where 1 is the attribute value for the file's read-only flag.
>
>HTH

J.,

Noooo!:-) It's a bad idea. The reason I say this is: If it isn't read-only and you subtract 1, you'll modify the other bits too. Same thing with adding. Further, with the folder object at least, the directory bit is read-only and will error on you. Use the bitwise operators always.