Hola. Pues le he puesto que me pinte los errores tal que:
Public Sub Comprimir(FichEntrada)
Código:
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 Append 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
Print #1, Now & "-_-" & "El resultado es: " & Resultado
Close #1
Exit Sub
Errores:
Close #1
Response.Write "<h1>Se ha prodocido un error</h1>"
Response.Write "<b><font color='red'>" & FichEntrada & "</font></b>"
Response.Write "<b><font color='red'>" & Err.Number & "</font></b>"
Response.Write "<b><font color='red'>" & Err.Description & "</font></b>"
End Sub
Tras resolver un par de ellos que daba me sale de la funcion con el codigo de error 0 (sin errores) pero no me comprime nada de nada.