Change the mode of the file Read only to Write

strApptEnterPath = "C:\Documents and settings\krao\Desktop\environment.xml"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = oFSO.GetFile(strApptEnterPath)
If objFile.Attributes AND 1 Then
objFile.Attributes = objFile.Attributes - 1
End If