Sergey,
I am getting a Nested error at the loop:

lhFile = fopen(lcDir+"\"+finame+".tif",10)
If lhFile = -1
Loop
Else
messagebox("hello")
oFSO = CREATEOBJECT("Scripting.FileSystemObject")
oFile = oFSO.GetFile(lcDir+"\"+finame+".tif")
* Set the read-only bit.
oFile.Attributes = BITOR(oFile.Attributes, 1)
Endif

#########
Thank you.