Descomprimir un winrar por VFP auxilio

[marcel4233]

Amigos un gusto saludarlos nuevamente y disculpa incomodarlos.

tengo un problema necesito descomprimir un winrar automáticamente por visual fox y alojar ese archivos q se encuentra dentro de winrar en una carpeta que yo indique si me entienden..

 

Necesito sacar la carpeta del comprimido y alojarlo en la carpeta que necesito

 

Que opinan...............

[Ing.Daniel Bojorge]

Lo que podés es trabajar el Winrar en modo consola (no sé como se le llama), te paso algo que yo hago (para el proceso contrario - comprimir), ejecuto ese comando en un .bat, pero bien podés ponerlo con un RUN ó !

"C:\Archivos de programa\WinRAR\rar" a -k -s -x*.rar -m5 -ep X:\Destino\ArchivoSalida.rar X:\CarpetaFuente\

A lo que me refiero que podés investigar del comando rar.exe que viene con Winrar.

Dios L@s Bendiga

Saludos,

Daniel (Con 1 Estrella DCE de Microsoft)
www.debsconsultores.com

Nicaragua

"Si ustedes permanecen unidos a mí, y si permanecen fieles a mis enseñanzas, pidan lo que quieran y se les dará.
(Juan 15:7 DHH)
Bendito el varón que se fía en el SEÑOR, y cuya confianza es el SEÑOR.
(Jeremías 17:7 RV2000)

--
 
 
 

[Víctor Hugo Espínola Domínguez]

Hola Marcel

El archivo rar.txt, que está en el directorio de instalación, contiene la lista completa de las opciones de uso del comando.

Saludos.

Víctor.

--
 
 
 

[Pato]

Hola, si tenes instalado el Winrar en la computadora donde estas ejecutando el sistema, este ejemplo te va a servir para descomprimir y para comprimir

 

Descomprimir

SET PATH TO

C:\Program Files\WinRAR additive

#

define SW_SHOW_HIDDEN 0

gcComando = "winrar x directorio\archivorar.rar dir_donde_descomprime\"

oShell =

CreateObject("WScript.Shell")

oShell.

Run(gcComando, SW_SHOW_HIDDEN, .T.)

Comprimir

SET PATH TO

C:\Program Files\WinRAR additive

#

define SW_SHOW_HIDDEN 0

gcComando = "winrar a -ep1 -m5 directorio\archivorar.rar dir_arch_a_comprimir\*"

oShell =

CreateObject("WScript.Shell")

oShell.

Run(gcComando, SW_SHOW_HIDDEN, .T.)

Como te dijeron antes en el directorio winrar tenes el archivo rar.txt con todas las posibilidades de configuración.

Por ejemplo le queres poner password al archivo, agregas –hp.

Descomprimir

gcComando = "winrar x –hppassword directorio\archivorar.rar dir_donde_descomprime\"

Comprimir

gcComando = "winrar a -ep1 –m5 –hppassword directorio\archivorar.rar dir_arch_a_comprimir\*"

 

Espero te sirva. Saludos

Patricio

--
 
 
 

[marcel4233]

Gracias Daniel y Victor use sus ideas por consola con archivos.bat me funciono a la perfeccion GRACIAS.

 

Sin embargo me interesa hacerlo de la manera como la PROPUSO EL SEÑOR PATO es decir que se aga desde visual fox pro:

 

pero no me quiere funcionar nose xq me da un error en el oShell

 

*Descomprimir

SET PATH TO  C:\Program Files (x86)\Winrar\rar ADDITIVE
#define SW_SHOW_HIDDEN 0  

gcComando="winrar x C:\Respaldo\sisgen.rar C:\Respaldo"
 
oShell =CreateObject("WScript.Shell") 
oShell.

RUN(gcComando, SW_SHOW_HIDDEN, .T.)

 

 

[Víctor Hugo Espínola Domínguez]

Hola Marcel

>SET PATH TO  C:\Program Files (x86)\Winrar\rar ADDITIVE 

El nombre del directorio debe ir entre comillas, porque contiene espacios en blanco.

SET PATH TO  "C:\Program Files (x86)\Winrar\rar" ADDITIVE 

Es muy probable que el comando correcto sea: SET PATH TO "C:\Program Files (x86)\Winrar" ADDITIVE 

Saludos.

Víctor.

 

 

--
 
 
 

[marcel4233]

si victor gracias y tenia q unir dos palabritas hay.

 

Muy agradecido haora voy a mostrar mi propuesta a la empresa estoy es en unas pasantias y este programa lo e aprendido a manipular gracias a  personas como ustedes...!!! 

[Ing.Daniel Bojorge]

Yo hice pruebas y me funcionó bien, es más hacerlo con el WScript.Shell es mucho mejor, porque lo podés poner visible o no, pero lo más interesante es que podés validar si se hizo o no la tarea, yo probé y me da 0 si se ejecuta bien, 4 si el archivo rar (estoy comprimiendo), ya existe y al crear se dejó que bloqueara el archivo y 255 si a medio proceso cancelé la operación.

Eso si, tenés que valorar el uso de las comillas para nombre de archivos o directorios que espacios.

Dios L@s Bendiga

Saludos,

Daniel (Con 1 Estrella DCE de Microsoft)
www.debsconsultores.com

Nicaragua

"Si ustedes permanecen unidos a mí, y si permanecen fieles a mis enseñanzas, pidan lo que quieran y se les dará.
(Juan 15:7 DHH)
Bendito el varón que se fía en el SEÑOR, y cuya confianza es el SEÑOR.
(Jeremías 17:7 RV2000)

 

 

--