SOlucionado modo consola. Como comprimo todos los dbf ?

HMG en Español

Moderator: Rathinagiri

Post Reply
paimar
Posts: 64
Joined: Wed May 23, 2012 8:52 pm

SOlucionado modo consola. Como comprimo todos los dbf ?

Post by paimar »

Buenas.

Ya he solucionado lo de modo consola y el envio de emails con gmail pero ahora quiero comprimir todos los dbfs del directorio para
enviarlos por correo electrónico y me da un error de systaxis afiles en el siguiente código: (cuando tenga terminado subo el código completo de email + modo consola)

afiles:={"*.dbf"}
COMPRESS afiles TO 'ZipDBFs.Zip'

Que puede ser?

Gracias!
Gipuzkoa - ESPAÑA
User avatar
danielmaximiliano
Posts: 2625
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

Re: SOlucionado modo consola. Como comprimo todos los dbf ?

Post by danielmaximiliano »

Hola Paimar : las busquedas dentro del foro bajo el termino "COMPRESS" da este resultado y otros.
el amigo Pepe Ruano publico despues el codigo final.

http://hmgforum.com/viewtopic.php?f=24& ... ESS#p30995
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
User avatar
mustafa
Posts: 1172
Joined: Fri Mar 20, 2009 11:38 am
DBs Used: DBF
Location: Alicante - Spain
Contact:

Re: SOlucionado modo consola. Como comprimo todos los dbf ?

Post by mustafa »

Hola Paimar
Haber si te puede interesar
Files_Bakup es la Carpeta Destino
Zip_Seg.Zip es el fichero comprimido

local aqDir1:=Directory("*.DBF")
local aqDir2:=Directory("*.FPT")
local aqDir3:=Directory("*.CDX")
local aqfiles:={}
local x

For x:=1 to len(aqDir1)
aadd(aqfiles,aqdir1[x,1])
Next

For x:=1 to len(aqDir2)
aadd(aqfiles,aqdir2[x,1])
Next

For x:=1 to len(aqDir3)
aadd(aqfiles,aqdir3[x,1])
Next

COMPRESS aqfiles ;
TO 'Files_Bakup\Zip_Seg.Zip' ;
BLOCK {|| NIL} ;
OVERWRITE

Suerte
Mustafa :idea:
paimar
Posts: 64
Joined: Wed May 23, 2012 8:52 pm

Re: SOlucionado modo consola. Como comprimo todos los dbf ?

Post by paimar »

Buenas

Lo siento, no consegui encontrar nada en el foro porque en un principio estaba probando con HB_ZIPFILE y era lo que buscaba por el foro. Pruebo esto que me has dicho y os cuento.

gracias
Gipuzkoa - ESPAÑA
User avatar
Pablo César
Posts: 4059
Joined: Wed Sep 08, 2010 1:18 pm
Location: Curitiba - Brasil

Solucionado modo consola. Como comprimo todos los dbf ?

Post by Pablo César »

Hola Eduardo (paimar), eres de Euskadi ? Porque yo soy decendiente vasco y me llamó la atencion tu procedencia.
paimar wrote:Lo siento, no consegui encontrar nada en el foro porque en un principio estaba probando con HB_ZIPFILE
A veces se encuentra de forma más eficiente la busca por Google que por el propio sistema de busca del forum. No sé porqué a veces en php no hace la busca como deberia.
HMGing a better world
"Matter tells space how to curve, space tells matter how to move."
Albert Einstein
paimar
Posts: 64
Joined: Wed May 23, 2012 8:52 pm

Re: SOlucionado modo consola. Como comprimo todos los dbf ?

Post by paimar »

Si Pablo Cesar, soy de Euskadi de un pueblo de unos 50.000 habitantes llamado Irun que hace frontera con Francia , el pueblo del otro lado se llama Hendaya. San Sebatian esta también a unos 15 kms de aquí. Una zona muy bonita para visitar, tanto el lado español como el francés. Biarritz por ejemplo esta también a unos 35kms de aquí.

Un saludo
Gipuzkoa - ESPAÑA
User avatar
Pablo César
Posts: 4059
Joined: Wed Sep 08, 2010 1:18 pm
Location: Curitiba - Brasil

Solucionado modo consola. Como comprimo todos los dbf ?

Post by Pablo César »

Encantado Eduardo !

No tengo seguridad de cual parte de Euskadi viene mi familia Arrascaeta.

Mi sueño es poder conocer Euskadi algun dia.

Gracias por responder y disculpame por el desvio de asunto.

Un gran abrazo, chaval
HMGing a better world
"Matter tells space how to curve, space tells matter how to move."
Albert Einstein
Post Reply