Para usar winrar yo uso esto
cWr = "Winrar a " + cAlmacenaBU + cFecha + ".rar" + " " +
cAlmacenaBaseDeDatos
SET SAFETY OFF
LOCAL nSuccess as Number, oShell as Object
oShell = CREATEOBJECT("wscript.shell")
nSuccess = oShell.Run(cWr, 1, .T.)
IF nSuccess = 0
MESSAGEBOX("Proceso terminado", 0 + 48 + 0, "Copia de seguridad")
ELSE
MESSAGEBOX("Proceso abortado", 0 + 16, "Copia de seguridad")
ENDIF
SET SAFETY ON
Para usar winzip es como dice Eduardo.
Dicho sea de paso, Windows tiene algún proceso de compresión disponible?
Porque instalar winzip o winrar como copias de prueba, tiene una vida útil
muy corta, no te permiten seguir usándolo. Antes si lo hacian, si te
bancabas la propaganda. Yo se que existe en Windows, pero, alguien tiene
el algoritmo para usarlo?
Saludos a todos
-----Original Message-----
From: "Mario Munuce Furze" <mun...@gmail.com>
To: "GUFA List Member" <GUFA@mug.org.ar>
Date: Tue, 17 May 2011 18:11:49 -0500
Subject: [GUFA] OT usar winrar desde comandos.
> Hola Zorros!
>
> Sigo preguntón: necesito comprimir unos archivos desde vfp, para poder
> mandarlos por FTP. Alguno tiene resuelto esto?
>
> Saludos.
>
> m.
>
>
>
>
>
