[Resolvido]Descompactar com winrar "igual a estrair aqui"

pesssoal bom dia,

para descompactar com WINRAR, uso o código a baixo, e vem me atendendo perfeitamente, porem veio a necessidade de "extrair aqui" igual se fosse fazer manualmente funciona, porem ele está extraido tudo até o que está dentro das pastas deixando tudo na raiz, para ficar melhor o entendimento, a imagem 01 é como o código está fazendo, mais deveria fazer igual a imagem 02. já pesquisei no forum e não encontrei nenhum código ou modificações que me atendesse.

Código:


Private Sub DescompactarWinRar()
Dim WinRarPath As String
Dim RarIt As String
Dim SourceDir As String
Dim SourceRarFile As String
Dim Source As String
Dim Desti As String
    
  
  
    
    'se for 86 bits
     If Len(Dir("C:\Program Files (x86)\Winrar\WinRAR.EXE")) > 0 Then
        WinRarPath = "C:\Program Files (x86)"
    
    'x64 bits
    ElseIf Len(Dir("C:\Program Files\Winrar\WinRAR.EXE")) > 0 Then
             WinRarPath = "C:\Program Files"

    
    End If
    'WinRarPath = "C:\Program Files" 'aqui é onde fica o caminho do programa WinRar
    
  
  
   SourceDir = "C:\Sistemas_de_vales\Form atualizado\SistemasVales.rar" 'local onde fica o arquivo para descompatar
   SourceRarFile = "SistemasVales.rar" 'nome do arquivo ue será descompactado
   Source = SourceDir & "\" & SourceRarFile
  
   Desti = "C:\Sistemas_de_vales\Form atualizado"
  
'RarIt = Shell(WinRarPath & "WinRar.exe e " & Source & " " & Desti, vbNormalFocus)

'descompacta arquivo
RarIt = Shell(WinRarPath & "\Winrar\WinRAR.EXE e " & Chr(34) & SourceDir & Chr(34) & " " & Chr(34) & Desti & Chr(34), vbNormalFocus)

End Sub



imagem 01:



imagem 02:

Olá Washington,

Teste onde tem:
Desti = "C:\Sistemas_de_vales\Form atualizado"

por:
Desti = "C:\Sistemas_de_vales\Form atualizado\"

Abraço

Alvaro Teixeira, obrigado pela dica, até já tinha feito essa modificação, e continua extraindo do mesmo jeito que a imagem "01"

O problema é sua rotina que faz a compactação. Ela certamente está compactando as pastas desde a raiz. Existe um parâmetro da rotina de compactação onde especificamos que o caminho deve ser ignorado.

Poste sua rotina de compactação que faremos o ajuste

eu faço a copactação manualmente, aperto o botão direito do mouse, adionar para "sistemavales" e compro. não faço essa parte com programção, pois não precisa.

Quando compactar manualmente, nas opções de compactação, guia arquivo, opção caminho de arquivos, escolha armazenar caminho relativo.

(Meu WinRAR está em inglês, algumas palavras nas opções talvez mude)

fiz conforme informado, porem já é padrão do prorio WinRar, não deu certo.

Dentro do seu arquivo compactado existe a pasta imagens?

Existe sim a pasta imagens!

Então o problema é o parâmetro "e" depois de ...WinRAR.exe [culpado] e [culpado]

Existe alguma maneira de resolver esse parametro ?

pessoal consegui da segunte maneira, troquei o parametro "e" com a dica de damasceno e coloque "x -o+" obrigado pela ajuda.

Código:


RarIt = Shell(WinRarPath & "\Winrar\WinRAR.EXE x -o+ " & Chr(34) & SourceDir & Chr(34) & " " & Chr(34) & Desti & Chr(34), vbNormalFocus)


Grande Carvalho... você é o cara!

.

....

Não sei se isso ajuda, mas eu uso o 7zip pra fazer esse trabalho.
No caso, fiz um arquivo ".bat" (arquivo de lote do CMD do Windows) com os comandos do 7zip (CLI).
Em seguida, fiz um arquivo em vbscript para executar o arquivo bat e ocultar a janela CMD.
Por fim, eu aciono o arquivo do vbscript por meio de comando no Access.