Sub Main()

objrule.KeyUserField=objrule.FileName

Const DeleteReadOnly = TRUE
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(objrule.folder & "\" & objrule.FileName & ".xml") Then
objFSO.DeleteFile(objrule.folder & "\" & objrule.FileName & ".xml") , DeleteReadOnly
End If

End Sub