Generar archivos .RAR desde linea de comandos con RAR32 para DOS

A veces no queremos que nuestros usuarios tengan instalado el WinRar o el WinZip y entonces decide escribir la presente rutina.

local qrar
qrar="rar32.exe a c:\midirectorioxls\miarchivo.rar *.xls"
set defa to c:\midirectorioxls
run/N7 &qrar
messagebox("Compactar el archivo  en formato rar",48)
wait windows "compactando datos  en archivo rar" nowait noclear
do while (FindWindow (0, "c:midirectorioxlsrar32.exe") > 0)
enddo
clear WINDOWS
set defa to c:\mydefault

Detalles:

Agregando /N7 permite poner inactiva y minimizada la ventana dos para saber cuando termina el proceso uso findwindow explicada en hilos anteriores y pregunto si existe el caption del form c:\midirectorioxls\rar32.exe que es el que vfp en este caso.

El rar32.exe, emx.exe y rsx.exe deben estar en la carpeta donde estan los datos, por eso ademas cambio en set dafault a dicha carpeta y luego recupero el que corresponde ya que sino no encuentra dichos archivos, otra opcion es ponerlos en el root o en windowssystem.

El rar32.exe lo pueden bajar desde www.rarlab.com

Espero le sirva.

Hernan Perez Tonini