Problema Con DLL en ASP

[ildelian]

Buenos dias.

Tengo que agregar a mi ASP una función que comprima los anexos que se suben al FTP de la misma.
Para ello hago uso de las DLL Zip32.dll y UnZip.dll mediante otra DLL de ActivX que he desarrollado con VB6 y añadida y registrada en el servidor mediante un método COM.

El problema es que, en el ASP, creo el objeto, llamo a la función que comprime los anexos, pero no hace nada, ni comprime ni pinta en el log ni nada de nada.

Pongo el código para que se pueda ver:

1º El código de la DLL intermedia ActiveX

Código vb:

Public Sub Comprimir(FichEntrada)
 
On Error GoTo Errores
Dim Resultado As Long
Dim FuncionesZip As ZIPUSERFUNCTIONS
Dim OpcionesZip As ZPOPT
Dim NombresFicherosZip As ZIPnames
 
'*********************************'
Open App.Path & "\Log.txt" For Input As #1
 
Dim Linea As String
Print #1, Now & "-_-" & "El fichero de entrada es: " & FichEntrada
 
'*********************************'
 
FuncionesZip.DLLComment = DevolverDireccionMemoria(AddressOf FuncionParaProcesarComentarios)
FuncionesZip.DLLPassword = DevolverDireccionMemoria(AddressOf FuncionParaProcesarPassword)
FuncionesZip.DLLPrnt = DevolverDireccionMemoria(AddressOf FuncionParaProcesarMensajes)
FuncionesZip.DLLService = DevolverDireccionMemoria(AddressOf FuncionParaProcesarServicios)
 
NombresFicherosZip.s(0) = FichEntrada
 
Resultado = ZpInit(FuncionesZip)
Resultado = ZpSetOptions(OpcionesZip)
Resultado = ZpArchive(0, FichEntrada & ".Zip", NombresFicherosZip)
 
Print #1, Now & "-_-" & "Se ha producido el error Nº: " & Err.Number
Print #1, Now & "-_-" & "Se ha producido el error descripcion: " & Err.Description
 
Close #1
Exit Sub
Errores:
Close #1
End Sub
 

2º El codigo del ASP que llama a dicha función de la DLL que comprime:

Código ASP:

Set AGZIP = Server.CreateObject("AGZIP.Class1")
CALL AGZIP.Comprimir (Ruta & NombreFichero)
NombreFichero = NombreFichero & ".zip"
Set AGZIP = Nothing
 

Gracias de Antemano.