Clipper On Line • Ver Tópico - zipar pasta/subpastas e seus arquivos ???

zipar pasta/subpastas e seus arquivos ???

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

zipar pasta/subpastas e seus arquivos ???

Mensagempor laurentino » 29 Jan 2019 19:06

Boa noite a todos !!!
Estou precisando zipar as pastas e subpastas , não estou conseguindo com hb_zipfile( cNomeArqz,aFiles[x,1],,,.t.,'389822147130160550',,, ), desde já agradeço
a boa vontade de todos !!!
laurentino
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 3
Data de registro: 04 Dez 2006 20:08
Curtiu: 0 vez
Mens.Curtidas: 0 vez

zipar pasta/subpastas e seus arquivos ???

Mensagempor LDOSISTEMAS » 30 Jan 2019 08:32

Bom dia, ao criar o array aFiles[x,1] inclua o caminho
Veja nesse exemplo:
cOrigem:="c:\caminho\dados\*.dbf*"
   aDir1 := directory(ALLTRIM(cOrigem))
   vPasta:= LEFT(cOrigem,RAT("\",cOrigem))
   for i=1 to len(aDir1)
    aadd(aArq,vPasta+aDir1[i,1])
   next

Repita a operação nas pastas que você deseja antes de chamar o hb_zipfile( cNomeArqz,aFiles[x,1],,,.t.,'389822147130160550',,, )
LAURO DE OLIVEIRA
Analista/Diretor
(37) 3381 32 11
www.ldosistemas.com.br
Imagem
LDOSISTEMAS
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 45
Data de registro: 01 Set 2014 17:04
Cidade/Estado: CLAUDIO/MG
Curtiu: 1 vez
Mens.Curtidas: 2 vezes

zipar pasta/subpastas e seus arquivos ???

Mensagempor Jairo Maia » 30 Jan 2019 10:51

Olá Pessoal,

Basta usar DirectoryRecurse(). Exemplo:
Procedure Main()
Local aFiles, cFiles:="", cEof:=Hb_EOL()

aFiles := DirectoryRecurse( "*.prg" )  // pega todos arquivos .PRG da pasta atual e subpastas...

AEval( aFiles, {|x| cFiles += x[1] + cEof } )
     
Hb_MemoWrit( "Arquivos.Txt", cFiles )

Return Nil
Abraços, Jairo
Harbour / Clipper 5.2e - Blinker 7
(Não respondo dúvidas por MP ou E-mail. Por favor, não encaminhe via mensagem privada ou e-mail, dúvidas que podem ser compartilhadas com todos no fórum)
Avatar de usuário

Jairo Maia
Colaborador

Colaborador
 
Mensagens: 2733
Data de registro: 16 Ago 2010 13:46
Cidade/Estado: Campinas-SP
Curtiu: 371 vezes
Mens.Curtidas: 305 vezes

zipar pasta/subpastas e seus arquivos ???

Mensagempor laurentino » 30 Jan 2019 20:32

As duas funcionaram mas o hb_zipfile não inclui as subpastas e seus arquivos, eu preciso zipar as pastas/subpastas e envia por ftp
/////////////////////
//
/////////////////////
function ftpimagens()
local aPasta := aArq :={}
local cOrigem:="c:\cdpi\*.*" //pego somente as pastas e suas subpastas +arquivos
local aDir1 := directory(alltrim(cOrigem),'D')
local cPasta:= left(cOrigem,rat("\",cOrigem))
local x
for x := 1 to len(aDir1)
cNomeArqz :=Curdrive() +':\cdpi\'+aDir1[x,1]//+'.zip'
hb_zipfile( cNomeArqz,Curdrive()+':\cdpi\'+aDir1[x,1],,,.t.,'389822147130160550',,, )
next
return .t.
laurentino
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 3
Data de registro: 04 Dez 2006 20:08
Curtiu: 0 vez
Mens.Curtidas: 0 vez

zipar pasta/subpastas e seus arquivos ???

Mensagempor Mario Mesquita » 31 Jan 2019 09:21

Bom dia, pessoal!

Eu uso o comando Compress, mas em alguns clientes ele cria o zip mas não coloca os arquivos dentro do Zip.

Essa função é do Harbour mesmo? É melhor que o comando Compress?

Desde já, agradeço a dica.

Saudações,
Mario.
Avatar de usuário

Mario Mesquita
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 557
Data de registro: 08 Dez 2009 12:47
Cidade/Estado: Rio de Janeiro
Curtiu: 73 vezes
Mens.Curtidas: 13 vezes

zipar pasta/subpastas e seus arquivos ???

Mensagempor asimoes » 31 Jan 2019 16:20

Harbour 3.4

Pasta \contrib\hbmzip\tests

/*
* MyZip utility
*
* Copyright 2008 Mindaugas Kavaliauskas <dbtopas.at.dbtopas.lt>
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; see the file LICENSE.txt.  If not, write to
* the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
* Boston, MA 02110-1301 USA (or visit https://www.gnu.org/licenses/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.
*
* The exception is that, if you link the Harbour libraries with other
* files to produce an executable, this does not by itself cause the
* resulting executable to be covered by the GNU General Public License.
* Your use of that executable is in no way restricted on account of
* linking the Harbour library code into it.
*
* This exception does not however invalidate any other reasons why
* the executable file might be covered by the GNU General Public License.
*
* This exception applies only to the code released by the Harbour
* Project under the name Harbour.  If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way.  To avoid misleading
* anyone as to the status of such modified files, you must delete
* this exception notice from them.
*
* If you write modifications of your own for Harbour, it is your choice
* whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice.
*
*/

#require "hbmzip"

#include "directry.ch"
#include "simpleio.ch"

REQUEST HB_CODEPAGE_UTF8EX

PROCEDURE Main()

   LOCAL hZip, aFile, aWild, lUnicode, tmp
   LOCAL cZipName, cPath, cFileName, cExt, cWild, cPassword, cComment

   IF lUnicode := ( "--unicode" $ hb_CmdLine() )
      hb_cdpSelect( "UTF8EX" )
      hb_SetTermCP( hb_cdpTerm() )
      Set( _SET_OSCODEPAGE, hb_cdpOS() )
   ENDIF

   aWild := hb_AParams()
   IF Len( aWild ) < 2
      ? "Usage: myzip <ZipName> [ --pass <password> ] [ --unicode ] [ --comment <comment> ] <FilePattern1> [ <FilePattern2> ... ]"
      RETURN
   ENDIF

   cZipName := hb_FNameExtSetDef( aWild[ 1 ], ".zip" )
   hb_ADel( aWild, 1, .T. )

   FOR tmp := Len( aWild ) - 1 TO 1 STEP -1
      SWITCH Lower( aWild[ tmp ] )
      CASE "--pass"
         IF cPassword == NIL
            cPassword := aWild[ tmp + 1 ]
         ENDIF
         aWild[ tmp ] := ""
         aWild[ tmp + 1 ] := ""
         EXIT
      CASE "--comment"
         IF cComment == NIL
            cComment := aWild[ tmp + 1 ]
         ENDIF
         aWild[ tmp ] := ""
         aWild[ tmp + 1 ] := ""
         EXIT
      CASE "--unicode"
         /* skip */
         EXIT
      ENDSWITCH
   NEXT

   IF ! Empty( hZip := hb_zipOpen( cZipName ) )
      ? "Archive file:", cZipName
      FOR EACH cWild IN aWild
         IF ! cWild == ""
            hb_FNameSplit( cWild, @cPath, @cFileName, @cExt )
            FOR EACH aFile IN hb_DirScan( cPath, cFileName + cExt )
               IF ! cPath + aFile[ F_NAME ] == cZipName
                  ? "Adding", cPath + aFile[ F_NAME ]
                  hb_zipStoreFile( hZip, cPath + aFile[ F_NAME ], cPath + aFile[ F_NAME ], cPassword,, lUnicode )
               ENDIF
            NEXT
         ENDIF
      NEXT
      hb_zipStoreFileMem( hZip, "Text to compress and store", "from_memory.txt", cPassword,, lUnicode )
      hb_zipStoreFileMem( hZip, hb_randStr( 20000 ), "from_memory_large.txt", cPassword,, lUnicode )
      hb_zipClose( hZip, cComment )
   ENDIF

   RETURN

INIT PROCEDURE ClipInit()

   IF "--unicode" $ hb_CmdLine()
      hb_cdpSelect( "UTF8EX" )
   ENDIF

   RETURN
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

zipar pasta/subpastas e seus arquivos ???

Mensagempor asimoes » 31 Jan 2019 16:41

Precisa usar a lib hbmzip.hbc

Exemplo:


   #include "directry.ch"

    hZip := hb_zipOpen( "TESTE.ZIP" )
   
   aFiles := DirectoryRecurse( "*.prg" )
   
   cPassword := "teste"
   
   lUnicode  := .F.
   
   FOR EACH aFile IN aFiles
      Hb_zipStoreFile( hZip, aFile[ F_NAME ], aFile[ F_NAME ], cPassword,, lUnicode )
   Next
   
   hb_zipStoreFileMem( hZip, "Text to compress and store", "from_memory.txt", cPassword,, lUnicode )
   hb_zipStoreFileMem( hZip, hb_randStr( 20000 ), "from_memory_large.txt", cPassword,, lUnicode )
   hb_zipClose( hZip, "TESTE" )
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes


zipar pasta/subpastas e seus arquivos ???

Mensagempor carlos moc » 02 Fev 2019 09:15

Já tentei todas,rsrsr,vou explicar o que acontece : o meu sistema pega as pastas das imagens geradas pelo raiox/tomografo/ressonancia e disponibiliza para os consultorios dentro e fora de um hospital, tem exame que gera até 5 pastas dentro da pasta principal, estou o usando o ftp do windows e funciona blz mas demora muito devido o tamanho das imagens que giram tem torno de 40mb sao imagens DICOM,preciso zipar pra ficar mais rapido.vou usar o winrar prq pelo xh nao consigo.
carlos moc
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 68
Data de registro: 16 Out 2017 15:00
Cidade/Estado: Montes Claros MG - Zap (38)99831-5319
Curtiu: 0 vez
Mens.Curtidas: 1 vez

zipar pasta/subpastas e seus arquivos ???

Mensagempor asimoes » 02 Fev 2019 09:19

Xharbour não deve ter o recurso que eu postei
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

zipar pasta/subpastas e seus arquivos ???

Mensagempor carlos moc » 09 Fev 2019 08:54

Resolvido, estou usando o RAR
carlos moc
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 68
Data de registro: 16 Out 2017 15:00
Cidade/Estado: Montes Claros MG - Zap (38)99831-5319
Curtiu: 0 vez
Mens.Curtidas: 1 vez




Retornar para Harbour

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 1 visitante


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro