pkzip por rar

[paiva]

use uma backup.bat

chamo assim backup 20210909 e ela gera um arquivo zipado com senha 20210909.zip

como estou mudando para 64 Bits o Pkzip nao funciona + rs

como seria para usar o rar.exe ou winrar ?

\dbdc\pkzip -sSENHA %1 *.prg *.xbp

[Itamar M. Lins Jr.]

Olá !
Tem pkzip para 64 bits.
https://support.pkware.com/home/pkzip/windows-desktop

Eu se fosse vc usaria 7zip.
https://www.ti-enxame.com/pt/windows/comando-7-zip-para-criar-e-extrair-um-arquivo-zip-protegido-por-senha-no-windows/1051816430/

 7z a secure.7z * -pSECRET 

7z        : name and path of 7-Zip executable
a         : add to archive
secure.7z : name of destination archive
*         : add all files from current directory to destination archive
-pSECRET  : specify the password "SECRET"

Nota: Se a senha contiver espaços ou caracteres especiais, inclua com aspas simples

7z a secure.7z * -p'pa$$Word @|'

Saudações,
Itamar M. Lins Jr.

[JoséQuintas]

como seria para usar o rar.exe ou winrar ?
\dbdc\pkzip -sSENHA %1 *.prg *.xbp

Pra fontes?
Porque não cria uma conta no github e faz backup de graça nas nuvens, e de uma forma muito melhor.

Como é XBP deve usar XHarbour, senão eu diria pra usar o próprio Harbour pra isso.

O Windows gerencia ZIPs sem precisar de programa nenhum, mas pra outros tipos uso o 7zip que é grátis.
Foi o que usei nas máquinas do github, que vém instalado pra uso, tanto máquinas Windows quanto máquinas Linux.

Sobre o github:
É importante marcar que o projeto é particular, caso crie como público vai ficar visível pra todo mundo.
Aqui faço backup de tudo lá, um projeto pra fonte, um projeto pra não fonte, e mais os projetos públicos que são ilimitados.

[Poka]

Bom dia

Quintas, poderia me tirar uma duvida?
Gravo cópias no dropbox.
Me falaram que, se eu elimino a pasta no meu computador exclui também do dropbox?
Se alguem roubar o computador e formatar, já pensou, achei meio estranho este comportamento do dropbox
Pergunto, o github também funciona assim?

Obrigado

Poka

[JoséQuintas]

NÃO.

Existe o software GIT. (uso GIT FOR WINDOWS)
Com ele você faz o controle NA MÁQUINA, fica tudo numa pasta .GIT do projeto.
Uma opção do GIT é salvar no github, será sempre completo.

O Harbour é um bom exemplo.
Quando baixa do github, vém tudo.

IMPORTANTE:
Não é automático, é sempre você no comando, acionando pra salvar ou não.
Se formatar a máquina, vai retornar do jeito que estava salvo no github, podendo não ter as últimas alterações que não salvou.
Mas é mais do que um backup: equivale a todos os backups dia a dia, ou hora a hora, dependendo de como vai salvando.
E nem por isso ele fica grande, a não ser que acabe salvando também os executáveis, o que não deveria fazer.

Pode sempre baixar os fontes do Harbour e usar como cobaia.
Vai poder ver toda história, desde o primeiro backup do primeiro arquivo criado.

[Poka]

Obrigado Quintas.

Poka

[paiva]

sobre o dropbox
se deletar do seu pc ele TORNA a baixar.....

tentei de tudo para diminuir o espaço
deletei la no site e ele voltava uma M. isso

acabei tendo que fazer uma sssinatura de 1 ano com 2 T de espaço

muito complicado deletar arquivo definitivamente

Paiva

[JoséQuintas]

E cuidado com o da Microsoft o one-drive

O default dele é NÃO deixar na máquina, somente nas núvens.

Descobri isso quando fiquei sem internet... não conseguia acessar meus arquivos locais.

Isso é configurável.

[Itamar M. Lins Jr.]

Olá!

muito complicado deletar arquivo definitivamente

Uso Google Drive, até agora ok por aqui.

Vou ver se tem no Linux...
Totalmente integrado com o navegador do Linux show de bola!

Saudações,
Itamar M. Lins Jr.

[mauricioportela]

Tenho esse codigo que uso dentro do sistema:

// mpcopia.prg

#require "hbmzip"

#include "fileio.ch"
#include "directry.ch"
#include "simpleio.ch"
#include "inkey.ch"

#define CRLF            (CHR(13) + CHR(10))

REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850

FUNCTION Main()

    HB_LANGSELECT("PT")
    HB_CdpSelect("PT850")
    SET DATE FORMAT TO "dd/mm/yyyy"
    SET TIME FORMAT TO "hh:mm"
    SET(_SET_EOL,chr(13)+chr(10))

    MPHCopiaDBF()

RETURN Nil

FUNCTION MPHCopiaDBF()
    LOCAL cNomeArqBKP, cCaminho, cSenha, cArquivos
    LOCAL cHora := Time()
    cNomeArqBKP := "BKP" + STRZERO(YEAR(DATE()),4) + ;
                           STRZERO(MONTH(DATE()),2) + ;
                           STRZERO(DAY(DATE()),2) + ;
                           SUBSTR(cHora,1,2) + ;
                           SUBSTR(cHora,4,2) + ;
                           SUBSTR(cHora,7,2)

    cCaminho := CURDIR(DISKNAME())
    cSenha    := "Senha123"
    cArquivos := "*.DBF"

    Copia_PIZ(cNomeArqBKP, cCaminho, cSenha, cArquivos)
RETURN Nil

PROCEDURE Copia_PIZ(cZipName, cPath, cPassword, cFileName)
    LOCAL hZip, aFile, aWild, lUnicode, tmp, cExt, cWild, 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
        RETURN
    ENDIF
    cZipName := hb_FNameExtSetDef(aWild[1], ".piz")
    hb_ADel(aWild, 1, .T.)
    FOR tmp := Len(aWild) - 1 TO 1 STEP -1
        SWITCH Lower(aWild[tmp])
            CASE "--snh"
                IF cPassword == NIL
                    cPassword := aWild[tmp +1]
                ENDIF
                aWild[tmp] := ""
                aWild[tmp +1] := ""
                EXIT
            CASE "--cmt"
                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))
        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
                        hb_zipStoreFile(hZip, cPath + aFile[F_NAME], cPath + aFile[F_NAME], cPassword,, lUnicode)
                    ENDIF
                NEXT
            ENDIF
        NEXT
        hb_zipClose(hZip, cComment)
    ENDIF
RETURN

o arquivo mpcopia.hbp:
* Para acrescentar um icone ao binario: -icon=mpcopia.ico

Para compilar: hbmk2 mpcopia

-ompcopia
hbmzip.hbc
mpcopia.prg

Att
Mauricio Portela