Extraer archivo Comprimido (zip)

[SKL]

Muchachos la verdad, qeu no tengo ganas de buscar jaja asi que si alguno tiene alguna clase o modulo en lo posible que no sea ocx ni dll para poder extraer archivos sip se los voy a super agradecer GRACIASSS

[LeandroA]

Que haces raton , todo bien, te paso una simple funcion, sirve desde xp en adelante

Código: (Vb) [Seleccionar]

Public Function UnZipPath(ByVal SrcPath As String, ByVal DestPath As String) As Boolean
   
    On Error GoTo Fail

    Dim oShell As Object
    Dim DestItem As Object
   
    Set oShell = CreateObject("Shell.Application")

   
    oShell.NameSpace(CVar(DestPath)).CopyHere oShell.NameSpace(CVar(SrcPath)).Items
   
    UnZipPath = True
Fail:

End Function

Private Sub Form_Load()
    UnZipPath "C:\Documents and Settings\Administrador\Escritorio\archivo.zip", "C:\Documents and Settings\Administrador\Escritorio\"
End Sub
Saludos.

[fernandos85al@hotmail.com]

Hola gente!!! como estan?? pase por el foro y me encontre con este codifo..

Código: (vb) [Seleccionar]

Public Function UnZipPath(ByVal SrcPath As String, ByVal DestPath As String) As Boolean
On Error GoTo Fail
Dim oShell As Object
Dim DestItem As Object
Set oShell = CreateObject("Shell.Application")       
oShell.NameSpace(CVar(DestPath)).CopyHere oShell.NameSpace(CVar(SrcPath)).Items
UnZipPath = True
Fail:
End Function
Private Sub Form_Load()   
UnZipPath "C:\Documents and Settings\Administrador\Escritorio\archivo.zip", "C:\Documents and Settings\Administrador\Escritorio\"
End Sub
pero no me funciono.... que hago mal?? hace falta agregar alguna referencia o algo??
desde ya muchas gracias!!!! FELICES FIESTAS Y MUY BUEN AÑO NUEVO PARA TODOS Y TODAS!!! (Argentinos y Argentinas, jeje)
saludos a todos

[xkiz ™]

@fernandos85al te aseguraste de que exista el path "C:\Documents and Settings\Administrador\Escritorio\archivo.zip" del archivo zip y el de extraccion "C:\Documents and Settings\Administrador\Escritorio\".

[CDiefenthaeler]

@fernandos85al Lo he probado, y me funciona de lujo, asegura te de hacer lo que te ha dicho xkiz, y también ten en cuenta que es archivo.zip, que seguro te funcionará. (No he probado con archivo.rar pero supongo que no va.)

Y Gracias LeandroA, todo lo que se encuentra por aquí, está muy bien...

Salu2...

[xkiz ™]

y tambien me olvide, o pase por alto, de que si o si,  si tu windows en si no puede arbir archivos zip no te va a funcionar, lo aclaro por que hay muchas version de windows donde esta funcionalidad es deshabilitada, y si esto esta deshabilitado, ovbiamente no va a funcionar...

[fernandos85al@hotmail.com]

Hola gente, neuvamente por el foro.. gracias a todos, y espero que la hayan pasado de diezz en estas fiestas!!! lo primero que mire es que exista la ruta y el fichero comprimido en .zip, y que esten habilitadas las opciones de compresion de windows xp professional, pero hasta el dia de hoy, NO ME FUNCIONA, DEBE SER ALGUN ERROR MUY TONTO QUE ME ESTA SUCEDIENDO, Y POR AHORA NO LO VEO!!! VOY A PROBAR BUSCAR ANTIGUAS CLAVES DE WINRAR EN EL REGISTRO Y BORRARLAS YA QUE TENIA INSTALADO  HACE UNOS MESES WINRAR, AL DESINSTALARLO, NUNCA BORRA TODAS LAS CLAVES.. DESPUES COMENTO SI ENCUENTRO LA SOLUCION.. SALUDOS Y MIL GRACIAS A TODOS MUEVAMENTE

[LeandroA]

fernando los zip deven estar comprimidos por windows no por WinRar, es cuando te paras sobre un archivo y le das con el clic derecho sobre el archivo y te vas al menu "enviar a" >> "carpeta comprimida (en zip)"

[SKL]

Exelente muchachos GRACIAS

[R@MI]

fernando los zip deven estar comprimidos por windows no por WinRar, es cuando te paras sobre un archivo y le das con el clic derecho sobre el archivo y te vas al menu "enviar a" >> "carpeta comprimida (en zip)"

WinRAR también hace zips