Pessoal,

Como faço para Zipar vários arquivos numa única Pasta usando a ZipFldr.dll*

 

Ou seja, como enviar vários arquivos pra uma pasta compactada(Zipada)?

A mesma que aparece quando se clica com o botão direito sobre vários arquivos e no menu de contexto aparece lá na opção "Enviar Para": "Pasta compactada(zipada)"

 

 

* dll de compressão, nativa do WinXP

Bom dia! Eu postei um exemplo muito legal no assunto "Unrar" de uma olhada no forum, este exemplo que postei não é com esta dll mais é um exemplo de ZIP tbm. As dlls que uso deixei postado no forum tbm... Procure lá.

 

Abraços

 

T+

Olá, pessoal!

Já faz um tempinho viu?! Bom! Tô de volta aqui pra postar uma solução q encontrei a algum tempo p/ essa questão de Zipar com o VB6 sem o uso de DLLs ou OCX, rs

 

Segue a baixo:

 

Sub NewZip(sPath)
'Cria-se um arquivo ZIP vazio

Dim oFSO, arrHex, sBin, i, Zip
  Set oFSO = CreateObject("Scripting.FileSystemObject")
  arrHex = Array(80, 75, 5, 6, 0, 0, 0, _
                 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
  For i = 0 To UBound(arrHex)
    sBin = sBin & Chr(arrHex(i))
  Next
  With oFSO.CreateTextFile(sPath, True)
      .Write sBin
      .Close
  End With
End Sub

 

Sub Zip_File()
Dim oApp As Object

'Copia-se o conteúdo para o recipiente ZIP

  NewZip ("c:TEST.zip")    'por exemplo
 
  Set oApp = CreateObject("Shell.Application")

  oApp.Namespace("c:TEST.zip").CopyHere (App.Path & "Arquivo_ou_Pasta_a_ser_Zipada")

  Set oApp = Nothing
End Sub

 

 

é isso aí!

Spero ser util a vcs...