[Resolvido]Como estrair Zip ou Rar atraves de um formulario ou vba?

ola pessoal mais uma vez venho pedir a ajuda de vcs ja vi varios exemplos de como compactar em Rar e Zip e aqui no forum só achei um exemplo de bakup co decompactação Rar mais muito complexo pois ainda sou iniciante gostaria de atraves de um botão descompactar um Zip ou Rar
petendo usar em um sistema de manuteção.
tenho um arquivo bat que faz isso ("C:\Program Files (x86)\WinRAR\rar.exe" -df x -y arquivoTeste.rar)
mas não ficou legal.
ai tentei fazer no formulario
no botão Descompactar

Private Sub BtnDescompactar_Click()
Dim Origen As Integer
Dim Destino As Integer
Dim Descompacta As String
'Dim xrar As Integer
'Dim Descompacta As String
'xrar = "C:\Program Files (x86)\Winrar\WinRAR.EXE e" 'caminho onde o wirar esta instalado

Origen = CurrentProject.Path & "teste.rar" 'direrto
Destino = CurrentProject.Path
'RarIt = Shell(xrar & "Rar.exe - df x -y" & SourceDir, vbNormalFocus)

'Shell (xrar & "rar.exe - df x -y" & CurrentProject.Path & "teste.rar")
'Shell (xrar & "rar.exe x" & Origen & "" & Destino)
Call Shell("C:\Program Files (x86)\Winrar\WinRAR.EXE e" & Origen & "" & Destino)

'Descompacta = Shell(xrar & "\Winrar\WinRAR.EXE e " & Chr(34) & Me.txtArquivo & Chr(34) & " " & Chr(34) & DLookup("CaminhoBe", "tblCaminhoBe") & Chr(34), vbHide)

End Sub

mas não da certo.

desde ja agradeço

Faça algumas alterações neste codigo, para a sua realidade que funfa,

Private Sub BtnDescompactar_Click()
Dim WinRarPath As String 'WinRar.exe location
Dim RarIt As String 'Command line instruction
Dim SourceDir As String 'The source directory
Dim SourceRarFile As String 'The source file
Dim Source As String 'The combined Rar from path(s)(FROM)
Dim Dest As String 'The combined unRar to path (TO)

WinRarPath = "C:\Program Files\WinRar\"
If Dir(WinRarPath, vbDirectory) = "" Then
MsgBox "WinRar is not installed in the default directory." _ & Chr$(13) & "Archiving of files will not be possible."
Exit Sub
End If

SourceDir = "C:\SuapastaDoFicheiroCompactado"
SourceRarFile = "SeuFicheiro.Rar"
Source = SourceDir & "\" & SourceRarFile
If InStr(1, Source, " ", vbTextCompare) <> 0 Then
Source = Chr(34) & Source & Chr(34)

Dest = "C:\SuaPastaDestino\"
If Dir(Dest, vbDirectory) = "" Then
MkDir Dest
If InStr(1, Dest, " ", vbTextCompare) <> 0 Then
Dest = Chr(34) & Dest & Chr(34)

RarIt = Shell _ (WinRarPath & "WinRar.exe e " & Source & " " & Dest, vbNormalFocus)
End Sub

ola JPaulo não deu certo estou enviado o banco dados pra vc ver ser estou fazendo certo

https://www.dropbox.com/s/buelfp5lalii1nu/silas.rar

desde ja muito obrigado pela atenção.

Converta por favor o "descompactar.accdb" em 2007.

ola já estar no formato 2007

Aqui dá banco não reconhecido.

Grande mestre ai esta o banco do colega em outro formato.

Faça o teste por favor;

Private Sub BtnDescompactar_Click()
Dim WinRarPath As String
Dim RarIt As String
Dim SourceDir As String
Dim SourceRarFile As String
Dim Source As String
Dim Desti As String

   WinRarPath = "C:\Program Files (x86)\WinRar\"
   
   SourceDir = CurrentProject.Path
   SourceRarFile = "comp.Rar"
   Source = SourceDir & "\" & SourceRarFile
   
   Desti = CurrentProject.Path
   
RarIt = Shell(WinRarPath & "WinRar.exe e " & Source & " " & Desti, vbNormalFocus)
End Sub

ola troquei o caminho para "C:\Program Files\WinRAR\" e arquivo "comp.rar"
e funcionou perfeitamente
muito obrigado

Obrigado pelo retorno o forum agradece.

ola pessoal fiz as alterações e funcionou mais como eu uso dropBox coloquei esse banco de dados na pasta do Dropbox e fica dando erro  disendo que esse comando não e reconhecido pelo WinRar fora dessa pasta funciona normal.

Boa noite!!!

Sei que o tópico já tem algum tempo , mas gostaria de saber se tem como caso o arquivo já exista substituir sem perguntar.

Complemente a linha de extração com -f

RarIt = Shell(WinRarPath & "WinRar.exe e -f " & Source & " " & Desti, vbNormalFocus)