Persmiso denegado al borrar.

[llanesluna]

Hola, me esta dando persmiso denegado siempre q trato de borrar el fichero.
Probe una con una condicion si existe o no y funciona bien.
Le tengo habilitado para probar todos los permisos de escritura posible posibles a la carpeta donde está el fichero. Que puedo hacer, el código me parece q está bien.

Código:

<%
Dim objZip
Set objZip = Server.CreateObject("XStandard.Zip")
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
objZip.Pack "E:\intranet\UploadedFiles\readme.txt", "E:\intranet\UploadedFiles\readme.txt.zip"
if FSO.fileExists(Server.MapPath("UploadedFiles\readme.txt")) then response.write("existe.") else  response.write("no existe.")
FSO.deletefile(Server.MapPath("UploadedFiles\readme")) & ".*"
Set objZip = Nothing
Set FSO = Nothing
%>

donde está el problema?
Ah, lo otro es para comprimirlo. Solo miren el código de borrar.
Saludos.

[llanesluna]

Hola, me he dado cuenta q al parece el problema es al borrar los ficheros q originalmente están copiados en la carpeta. Por ej si el cóg apunta a un fichero comprimido lo borra bien, el problema es con los demás ficheros(txt, doc, jpg, etc).
Alguna idea?