>#DEFINE READONLY 1
>oFSO = CREATEOBJECT('Scripting.FileSystemObject')
>* lcfile is the fully qualified file name of an existing file
>oFile = oFSO.GetFile(lcfile)
>oFile.Attributes = BITXOR(oFile.Attributes, READONLY)
Hey George. I inadvertently saw your post and tried it.
Cool!!
It will come in handy. :)
Thanks.
HI-YO SILVER AWAY!!
The Lone Ranger, The late Clayton Moore R.I.P.
I am a fool!