Walter:
No entiendo porque buscas una Ocx para hacer eso cuando podes
hacerlo fácilmente en Fox.
Lo que tenes que realizar es simple.
1) Creas una base de datos Pirulo.
CREATE DATABASE c:\Backup\Pirulo
2) Abris cada una de tus tablas abiertas o no y la copias asociadas a Pirulo
Use c:\Data\Tabla1 again in 0
Select Tabla1
COPY TO c:\Backup\Tabla1 DATABASE c:\Backup\Pirulo WITH CDX
Hasta aca ya tenes tu backup...
Ahora si queres que este backup este dentro de un zip recurris al Shell de
Windows de la siguiente forma
Antes que nada haces un CLOSE DATA ALL
y luego utilizas una rutina de compresion como esta:
Lparameters cDirOri,cArchZip
loSh = Createobject("Shell.Application")
loDirOri=loSh.NameSpace(cDirOri)
loArchOri=loDirOri.Items
IF loArchOri.Count>0
Strtofile(Chr(0x50)+Chr(0x4B)+Chr(0x05)+Chr(0x06)+Replicate(Chr(0),18),cArchZip)
loDirDes=loSh.NameSpace("&cArchZip")
loDirDes.CopyHere(loArchOri,1024) && No muestra error por pantalla si
ocurriese
Inkey(0.5)
ENDIF
Store Null To loSh,loDirOri,loArchOri,loDirDes
que basicamente lo que hace es copiar el contenido de una carpeta a un
archivo ZIP.
Si mas tarde queres descomprimir, te paso la rutina que utilizo para
descomprimir:
LPARAMETERS cArchZip,cDirDes
loSh = CREATEOBJECT("Shell.Application")
loDirOri=loSh.NameSpace(cArchZip)
loArchOri=loDirOri.Items
loDirDes=loSh.NameSpace(cDirDes)
loDirDes.CopyHere(loArchOri,16)
STORE null TO loSh,loDirOri,loArchOri,loDirDes
Y eso es todo,
Salvo por el uso del Shell de windows el codigo es 100% Fox y siempre anda.
Saludos,
Pancho
Cordoba,
Argentina
El 31 de marzo de 2010 22:13, Rene Yacyna <[email protected]>escribió:
> Lo probé, pero no anda con los archivos abiertos. :(
>
>
>
>
> ----- Original Message -----
>
> *From:* Walter Comito <[email protected]>
> *To:* GUFA List Member <[email protected]>
> *Sent:* Wednesday, March 31, 2010 7:56 PM
> *Subject:* [GUFA] BACKUP
>
> *a donde busco el eclipse?*
>
> ******
> *Walter Cómito*
> ** Analista de Sistemas
> MP 0397 C.P.C.I.P.C.
>
> › *[email protected]* <[email protected]>* -
> **[email protected]*<[email protected]>
> * - **[email protected]* <[email protected]>
> (* **+54 351 494.4667 / 153.292.707*
> **þ *www.softram.com.ar*
> P Si no es necesario, no imprima este correo. Todos somos responsables por
> el cuidado del medio ambiente.
>
> **
>
>
>
>
> ------------------------------
> *De:* [email protected] [mailto:[email protected]] *En nombre de *Rene Yacyna
> *Enviado el:* Miércoles, 31 de Marzo de 2010 19:31
> *Para:* GUFA List Member
> *Asunto:* [GUFA] BACKUP
>
> Probaste el ocx eclipse ?
>
> ----- Original Message -----
> *From:* Walter Comito <[email protected]>
> *To:* GUFA List Member <[email protected]>
> *Sent:* Wednesday, March 31, 2010 7:04 PM
> *Subject:* [GUFA] BACKUP
>
> *Amigos tendran alguna dll, ocx para que desde dentro de fox pueda hacer
> backup de mis datos enforma automatiuca, por mas que los archivos esten
> abiertos?*
> **
> *desde ya muchas gracias*
>
>
> ******
> *Walter Cómito*
> ** Analista de Sistemas
> MP 0397 C.P.C.I.P.C.
>
> › *[email protected]* <[email protected]>* -
> **[email protected]*<[email protected]>
> * - **[email protected]* <[email protected]>
> (* **+54 351 494.4667 / 153.292.707*
> **þ *www.softram.com.ar*
> P Si no es necesario, no imprima este correo. Todos somos responsables por
> el cuidado del medio ambiente.
>
> **
>
>
>
>
> ------------------------------
> *De:* [email protected] [mailto:[email protected]] *En nombre de *francisco
> prieto
> *Enviado el:* Lunes, 29 de Marzo de 2010 14:14
> *Para:* GUFA List Member
> *Asunto:* [GUFA] Color de columna
>
> Daniel:
>
> Para cualquier cosa que realices en Excel, tenes que manejarlo como si se
> tratase de un objeto de Fox. Para ello, tenes que hacer lo siguiente:
>
> 1) En excel te armas una planillita de ejemplo y le pedís que grabe una
> macro con el nombre que quieras.
> 2) En este caso mientras estas grabando la macro, coloreas una casilla o
> bloqueas una o varias columnas, o cualquier otra cosa que desees hacer.
> 3) Una vez que hiciste todo esto detenes la grabación.
> 4) Editas la macro y la misma te va a decir en lenguaje
> de programación todo lo que hiciste.
> 5) Ahora simplemente lo que te queda es copiar ese programa y traducirlo a
> Fox, ya que va a estar en Visual Basic.
>
> Si, necesitas un ejemplo avisame.
>
> Saludos,
>
> Pancho
> Cordoba
> Argentina
>
> El 29 de marzo de 2010 12:54, Flia. Pievaroli
> <[email protected]>escribió:
>
>> Hola a todos
>>
>> Por medio de un proceso en visual fox genero una planilla de Excel.
>> Lo que necesito es saber como poner color o bloquear una o varias
>> columnas.-
>> Desde ya muchas gracias.-
>>
>> Daniel
>>
>>
>
>
> __________ Información de ESET NOD32 Antivirus, versión de la base de
> firmas de virus 4982 (20100329) __________
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>
> __________ Información de ESET NOD32 Antivirus, versión de la base de
> firmas de virus 4989 (20100331) __________
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>
> __________ Información de ESET NOD32 Antivirus, versión de la base de
> firmas de virus 4989 (20100331) __________
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
>
> http://www.eset.com
>
>
> __________ Información de ESET NOD32 Antivirus, versión de la base de
> firmas de virus 4989 (20100331) __________
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
>
> http://www.eset.com
>
>
