>>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.
George
Ubi caritas et amor, deus ibi est