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.