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 "_PKExtractFile2File@12" (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.