VBA: Descompacte para uma pasta específica com o WinZip (VBA)

Senhoras e senhores, segue uma funcionalidade muito útil para aqueles
que lidam com grandes volumes de dados e querem acrescentar certa
  sofisticação às suas aplicações.

Que tal compactar e descompactar os dados

Tanto o nome como a pasta destino estão no código do exemplo.
Sub DEScompacte_Zip()
    Dim PathWinZip As String
    Dim FileNameZip As String
      Dim ShellStr As String
    Dim FolderName As String
 
    Let PathWinZip = "C:\A&A\winzip\"

   ' Aqui checaremos o local onde o WinZip está instalado.
   If Dir(PathWinZip & "winzip32.exe") = "" Then
          MsgBox "Por favor, identifique onde a sua cópia do winzip32.exe está instalada e tente novamente"

       Exit Sub
   End If
 
    Let FileNameZip = "C:\Dados\Test.zip"
   Let FolderName = "C:\Dados\"
 
    ' Descompacta o arquivo Zip na pasta FolderName.
   Let ShellStr = PathWinZip & "Winzip32 -min -e" & " " & Chr(34) & FileNameZip & Chr(34) & " " & Chr(34) & FolderName & Chr(34)
 
   ShellAndWait ShellStr, vbHide

    MsgBox "Observe a pasta " & FolderName & " onde os arquivos foram descompactados"
End Sub
André Luiz Bernardes A&A - WORK, DON´T PLAY! http://al-bernardes.sites.uol.com.br/ bernardess@gmail.com

Um comentário:

diHITT - Notícias