Excepto que seas como yo que lo primero que hago es desactivar la funcion de 
archivos comprimidos de XP, hace lentisima la maquina.

Pablo Pioli

----- Original Message ----- 
From: francisco prieto 
To: GUFA List Member 
Sent: Thursday, April 01, 2010 5:01 AM
Subject: [GUFA] BACKUP


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 
    To: GUFA List Member 
    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]
    ( +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 
      To: GUFA List Member 
      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]
      ( +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


Responder a