Hola, se trata de una funcion que hace uso de un programita para comprimir ficheros. El codigo funciona, pero no del todo, es decir funciona en el servidor donde se encuentra alojada la página asp, pero ocurre que el fichero que ha de comprimir se encuentra en otra maquina, he probado ejecutar el programita gzip.net en la misma maquina en donde se encuentra el fichero y en el mismo directorio, dicho directorio tiene control total para el usuario Todos, al igual que el ejecutable gzip y el fichero que se pretende comprimir.
Como funciona en la maquina donde se encuentra la pagina, el codigo esta bien, y me temo que se debe a algun error en el tipeado de la ruta o en algun parametro que es necesario o sobra ...
Esta es la funcion:
FicheroFis="\\maquina\directorio1\direct2\Descarga sADM\RIQ_20050613.xml"
Function Comprime(ByVal PathFichero)
Dim objWSH, strACLCommand, return_
Set objWSH = Server.CreateObject("WScript.Shell")
lc_PathGzip = server.MapPath("scripts/gzip.exe")
lc_PathGzip = "\\maquina\directorio1\direct2\\DescargasADM\gzip. exe -f "
strACLCommand = "cmd /c echo y|" & lc_PathGzip & PathFichero
return_ = objWSH.Run (strACLCommand, 0, True)
if err.number then
Response.Write err.description
end if
Set objWSH = nothing
End Function
y el tema es que no chiva ningun error...., se me acaban los recursos, a ver si alguien me puede orientar para encontrar la solucion.
Un Saludo.
