MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    [Resolvido]Compactar com 7zip

    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 531
    Registrado : 30/08/2010

    [Resolvido]Compactar com 7zip Empty [Resolvido]Compactar com 7zip

    Mensagem  NADIRONUNES 4/10/2021, 22:13

    tenho esse codigo pra Descompactar com 7zip

    Código:
    Public Function desczip()
    Dim SourceDir As String
    Dim Desti As String
    Dim unZip, str7z, strcmd As String
    str7z = CurrentProject.Path & "\7z\7z.exe"
    SourceDir = CurrentProject.Path & "\Retorno\AACAg5pjIA6t1dgSZZlo4g1ka"
    Desti = CurrentProject.Path & "\Retorno\"
    strcmd = Chr(34) & str7z & Chr(34) & " e " & Chr(34) & SourceDir & Chr(34) _
    & " -o" & Chr(34) & Desti & Chr(34) & " -y"
    unZip = Shell(strcmd, vbHide)
    End Function

    tem como usar esse codigo pra zipar com ele
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7613
    Registrado : 15/03/2013

    [Resolvido]Compactar com 7zip Empty Re: [Resolvido]Compactar com 7zip

    Mensagem  Alvaro Teixeira 4/10/2021, 22:53

    Olá Nadir,

    Na linha de comandos nas pasta onde tem o 7-zip instalado se teclar 7z.exe |more mostra ajuda, veja:
    [Resolvido]Compactar com 7zip 0186

    No código que partilhou será ajusta a "shell" com o comando correto.

    Também pode chamar diretamente assim:
    Código:
    Shell "C:\Program Files\7-Zip\7z.exe a C:\Pasta\Ficheiro.zip C:\PastaCompactar\*.*", vbMinimizedFocus

    Abraço


    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 531
    Registrado : 30/08/2010

    [Resolvido]Compactar com 7zip Empty Re: [Resolvido]Compactar com 7zip

    Mensagem  NADIRONUNES 5/10/2021, 13:01

    bom dia


    tentei assim mas nao zipa meu banco como backup


    Dim DirxBackup, DirxBanco As String
    Dim unZip, str7z, strcmd As String
    str7z = CurrentProject.Path & "\7z\7z.exe"
    DirxBanco = Mid(CurrentProject.Path, 1, 2) & "\SysPosto\Dados\*.*"
    DirxBackup = Mid(CurrentProject.Path, 1, 2) & "\SysPosto\Backups\BDPosto.zip"
    strcmd = Chr(34) & str7z & Chr(34) & " a " & Chr(34) & DirxBackup & Chr(34) _
    & DirxBanco & Chr(34) & " -y"
    unZip = Shell(strcmd, vbMinimizedFocus)
    End Function


    O 7zip tenho ele numa pasta junto ao sistema onde dentro da pasta tem o 7z.exe e a dll  7z.dll
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7613
    Registrado : 15/03/2013

    [Resolvido]Compactar com 7zip Empty Re: [Resolvido]Compactar com 7zip

    Mensagem  Alvaro Teixeira 6/10/2021, 16:11

    Olá Nadir,

    À primeira vista parece que não colocou bem a sintaxe, está invertida, mas para não falhar, inclua no seu código a linha a vermelho e verifique se está bem.

    Dim DirxBackup, DirxBanco As String
    Dim unZip, str7z, strcmd As String
    str7z = CurrentProject.Path & "\7z\7z.exe"
    DirxBanco = Mid(CurrentProject.Path, 1, 2) & "\SysPosto\Dados\*.*"
    DirxBackup = Mid(CurrentProject.Path, 1, 2) & "\SysPosto\Backups\BDPosto.zip"
    strcmd = Chr(34) & str7z & Chr(34) & " a " & Chr(34) & DirxBackup & Chr(34) _
    & DirxBanco & Chr(34) & " -y"
    msgbox strcmd
    unZip = Shell(strcmd, vbMinimizedFocus)
    End Function


    Se o problema se mantiver, teste diretamente na linha de comandos o que o sistema mostrou.

    Abraço
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 531
    Registrado : 30/08/2010

    [Resolvido]Compactar com 7zip Empty Re: [Resolvido]Compactar com 7zip

    Mensagem  NADIRONUNES 6/10/2021, 18:29

    Código:
    Public Function ZipXBanco()
    Dim DirxBackup, DirxBanco As String
    Dim unZip, str7z, strcmd As String
    str7z = CurrentProject.Path & "\7z\7z.exe"
    DirxBanco = Mid(CurrentProject.Path, 1, 2) & "\SysPosto\Dados\*.*"
    DirxBackup = Mid(CurrentProject.Path, 1, 2) & "\SysPosto\Backups\BDPosto.zip"
    strcmd = Chr(34) & str7z & Chr(34) & " a " & Chr(34) & DirxBackup & Chr(34) _
    & " -o" & DirxBanco & Chr(34) & " -y"
    MsgBox strcmd
    unZip = Shell(strcmd, vbMinimizedFocus)
    End Function

    desse jeito aqui zipa mas nao busca o arquivo dentro da pasta dirBanco

    [Resolvido]Compactar com 7zip Sem_tz14
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7613
    Registrado : 15/03/2013

    [Resolvido]Compactar com 7zip Empty Re: [Resolvido]Compactar com 7zip

    Mensagem  Alvaro Teixeira 7/10/2021, 11:38

    Olá Nadir,

    Testou o que mostrou na imagem digitou na linha de comandos e viu qual era o erro que o 7zip devolveu?
    Creio que será o correto antes de programar testar a sintaxe correcta.

    Apenas uma pista para que está a usar a opção "-o"??????

    Abraço
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 531
    Registrado : 30/08/2010

    [Resolvido]Compactar com 7zip Empty Re: [Resolvido]Compactar com 7zip

    Mensagem  NADIRONUNES 7/10/2021, 11:55

    Sem esse -o ele nao busca os arquivos
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7613
    Registrado : 15/03/2013

    [Resolvido]Compactar com 7zip Empty Re: [Resolvido]Compactar com 7zip

    Mensagem  Alvaro Teixeira 7/10/2021, 12:11

    Olá

    Testou na linha de comandos?
    Funcionou direito?
    Deu erro?

    Abraço
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 531
    Registrado : 30/08/2010

    [Resolvido]Compactar com 7zip Empty Re: [Resolvido]Compactar com 7zip

    Mensagem  NADIRONUNES 7/10/2021, 14:40

    Ele ta zipando a pasta documentos do windows ao inves de zipar a pasta q indico
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 531
    Registrado : 30/08/2010

    [Resolvido]Compactar com 7zip Empty Re: [Resolvido]Compactar com 7zip

    Mensagem  NADIRONUNES 7/10/2021, 17:05

    boa tarde a todos

    ahteixeira, consegui muito obrigado pelo seu tempo


    Código:
    Public Function ZipXBanco()
    Dim DirxBackup, DirxBanco As String
    Dim unZip, str7z, strcmd As String
    str7z = CurrentProject.Path & "\7z\7z.exe"
    DirxBanco = CurrentProject.Path & "\Dados\*.*"
    DirxBackup = CurrentProject.Path & "\Backups\BDPosto.zip"
    Shell str7z & " a " & DirxBackup & " " & DirxBanco, vbMinimizedFocus
    End Function
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7613
    Registrado : 15/03/2013

    [Resolvido]Compactar com 7zip Empty Re: [Resolvido]Compactar com 7zip

    Mensagem  Alvaro Teixeira 7/10/2021, 23:09

    Olá Nadir,

    Deu luta, mas assim você percebeu como é efetuado.
    Fico feliz por ter ajudado.

    Abraço

      Data/hora atual: 1/10/2022, 15:21