Comprimir archivos en VFP

[Roberto Lemos]

Tengo una serie de archivos de texto, los cuales necesito comprimir con el mismo nombre del archivo de texto, alguna rutina o clase para hacerlo?

 

Saludos

 

Roberto Lemos

 

[Ricardo Pina]

Hola Roberto

 

Algo así

 

lnTxt=ADIR(laTxt,"C:\carpeta\*.TXT")
FOR y=1 TO lnTxt
 archivo=STRTRAN(".TXT","",laTxt[y,1])
 nzip = archivo+".zip'
 cual = laTxt[y,1]
 RUN  wzzip &nzip &cual
NEXT y

Hace unos dias publicaron estas lineas para utilizar en winrar tanto para comprimir y descomprimir y puedes usar en el bucle con los parametros adecuados

 

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\*"
 
 

Saludos

 

 

 

 

 

 

Roberto Lemos

 

--
 
 
 

--

            

                   Ricardo Pina

Desarrollo y Servicios Informáticos

                  Profesionales
               www.dsip.com.ar

 

 

[Luis Maria Guayan]

Una libreria muy buena para comprimir en VFP: VFPCompression de Crayg Boyd

-- Librería VFPCompression (Zip/Unzip para Visual FoxPro) --
http://www.portalfox.com/index.php?name=News&file=article&sid=2246

-- Actualización de VFPCompression - Corrección de rutas relativas --
http://www.portalfox.com/index.php?name=News&file=article&sid=2567

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

--