Com WinRar, você pode utilizar linha de comando do próprio winrar.
No site abaixo, você pode visualizar o manual do WinRAR e checar toda as linhas de comandos possíveis.
http://acritum.com/software/manuals/winrar/
Faz tempo que não utilizo as linhas de comandos do WinRAR. Dei uma lida rápida e acredito que o code abaixo pode te ajudar, mas não testei.
Utilizo o 7-Zip, e acho ele muito bom.
Option Explicit
Sub CompactEnviar()
'Em C:Pasta*.* >> Ele irá colocar todos os arquivo que contém dentro da pasta.
'
'pthName >> Você pode cria trabalhar o nome da sua pasta aqui.
' Se quiser escolher o nome da pasta toda vez que for compactar, pode usar INPUTBOX, ou calcular uma variável.
Option Explicit
Dim PthName As String
PthName = "NOME QUE TERÁ O ARQUIVO COMPACTADO"
Shell Environ("ProgramFiles") & "WinRARWinRAR.exe -a -IEML " & PthName & " c:Pasta*.*", vbMinimizedNoFocus
End Sub
Postado : 08/06/2016 1:42 pm