Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: SKL en Diciembre 20, 2010, 01:10:09 am
-
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
-
Que haces raton :D, todo bien, te paso una simple funcion, sirve desde xp en adelante
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.
-
Hola gente!!! como estan?? pase por el foro y me encontre con este codifo..
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
-
@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\".
-
@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...
-
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...
-
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
-
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)"
-
Exelente muchachos GRACIAS
-
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