Abri una carpeta que tenga un ZIP de 1GB con 5000 archivos y contame

Pablo Pioli

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


Ah no se, yo utilizo Vista de 64 bits y la verdad que ni me entero de la 
lentitud que mencionas.


Saludos,


Pancho,
Cordoba,
Argentina


El 1 de abril de 2010 08:23, Pablo Pioli <[email protected]> escribió:

  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