como descomprimir

tiradofrank
01 de Junio del 2004
BUENAS, MI PREGUNTA ES LA SIGUIENTE:
TENGO ALREDEDOR DE 2000 ARCHIVOS COMPRIMIDOS EN FORMATO zip, estos archivos me llegan a diario, como puedo hacer para descomprimirlos todos a la ves, o alguna forma de hacerlo un poco mas automatizado? puedo hacer un programa en VB6.0 que pueda hacer esto?

Gabriel
01 de Junio del 2004
Necesitas la DLL Implode.dll, no desesperes ahora viene algo de codigo

Private Declare Function PKExtractFile2File Lib "pkdclvb.DLL" _
Alias "[email protected]" (ByVal InFile As String, ByVal OutFile As String, _
ByRef CRC As Long) As Integer


Function DeCompressFile(ByVal CompressedFileName As String, ByVal ExpandedFileName As String) As Boolean
Err = PKExtractFile2File(CompressedFileName, ExpandedFileName, CRC)

Rem Initialize the variable to hold at least 8 characters
S = "12345678"
Call GetCRCString(CRC, S)
S = ""
If (Err = 100) Then S = "La memoria es insuficiente"
If (Err = 101) Then S = "Overflow de Buffer"
If (Err = 102) Then S = "Imposible Crear el Archivo de destino"
If (Err = 103) Then S = "Imposible escribir el Archivo de destino"
If (Err = 1) Then S = "El tamaño de Diccionario es inválido"
If (Err = 2) Then S = "El modo de compresión es inválido"
If (Err = 3) Then S = "Los datos están mal comprimidos"
If (Err = 4) Then S = "La operación fue abortada"
If (Err = 5) Then S = "Memoria insuficiente para efectuar la compresión"
If (Err = 6) Then S = "Error en la compresión en memoria"
If (Err = 0) Then S = "No errors"
If (Len(S) = 0) Then S = "Error Desconocido: " + Trim(Str(Err))
If S <> "No errors" Then
BoxStop ("Ha ocurrido el siguiente error al tratar de descompactar la firma" + vbNewLine + S)
End If
DeCompressFile = (Err = 0)
End Function



SUERTE
:)

Gabriel
01 de Junio del 2004
Me falto esto (como llamarlo)

DeCompressFile(App.Path + "TMP.CMP", App.Path + Format$(1, "00") + ".BMP")

yo lo use para crear un BMP, habría que probar con los archivos que vos quieras descomprimir.