[Resolvido]Compactar com 7zip

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

Olá Nadir,

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


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

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

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

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

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

Sem esse -o ele nao busca os arquivos

Olá

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

Abraço

Ele ta zipando a pasta documentos do windows ao inves de zipar a pasta q indico

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

Olá Nadir,

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

Abraço