>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