zipfldr.dll - Zipping files with WITHOUT using WINZIP

[bill]

Hello,
On your desktop, you can right-click a file and SEND TO and one of your options is 'Compressed (zipped) Folder'.

Hack your registry for the above string and you'll find it associated with system32/zipfldr.dll.

So I'm wondering if one can instanciate the DLL in VBA to zip files.
(Can't add a direct reference to it in the VBE.)

My users DO NOT want to use WINZIP but instead wnat to use the functionality provided them from a clean install of XP....

Thanks!

 

[NdNoviceHlp]

Perhaps this thread will be useful. Dave
http://www.vbaexpress.com/forum/showthread.php?t=17357

 

[JohnnyMcFly]

Thanks Dave, you know I just managed to get it to work before you posted that, but thank you anyways..

 

[JohnnyMcFly]

First, in order to save others the same questions I had about bill's code.
To get the files back out of the zip, simply create a second namespace and use the copyto method

Sub UnZip_File()
Dim ZipFle As Object
Dim TargFolder As Object

Set ZipFle = CreateObject("Shell.Application")
Set TargFolder = CreateObject("Shell.Application")

TargFolder.Namespace("Folder to copy zip contents to").CopyHere _
TargFolder.Namespace("Path To Zip File").items

Set TargFolder = Nothing
Set ZipFle = Nothing
End Sub

I did not text that exact code, obviously, there's no paths, but the conept works.

The major problem with this solution is that either the ZIPFLDR.DLL or the SHELL32 creates entries in %TEMP%, and it does not clean up after itself. When you reach 99 temp folders under %TEMP% the code will stop working. You have to do the cleanup yourself.
The entries it creates will be folder that are named
Temporary Folder [X] for ZIPFILENAME.ZIP
Where X is a number from 1 to 99
and ZIPFILENAME.ZIP is the name of the zip file you are extracting contents from.

Hopefully that helps, I stopped using this in my applications, instead I am using ZIP32/UNZIP32..

 

[brettville]

        Dim shl As Object = CreateObject("Shell.Application")
        For Each fi As Object In shl.NameSpace("c:\temp\test.zip").Items
            shl.NameSpace("c:\").CopyHere(fi)
        Next

 

[brettville]

And an easier way to create an empty zip:
(need to use Imports System.IO)

[COLOR=darkslategray]   Sub createEmptyZip(ByVal zipPath As String)[/COLOR]
[COLOR=darkslategray]       Dim arrHex() As Integer = {80, 75, 5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}[/COLOR]
[COLOR=darkslategray]       Dim sBin As String = ""[/COLOR]
[COLOR=darkslategray]       For i = 0 To arrHex.Count - 1[/COLOR]
[COLOR=darkslategray]           sBin += Chr(arrHex(i))[/COLOR]
[COLOR=darkslategray]       Next[/COLOR]
[COLOR=darkslategray]       File.WriteAllText(zipPath, sBin)[/COLOR]
[COLOR=darkslategray]   End Sub[/COLOR]

 

[brettville]

Hm, seems to give me a null error on the namespace part when I don't include the shell control and automation reference.

Imports Shell32

Dim shl as New Shell

        Dim shl As Object = CreateObject("Shell.Application")
        For Each fi As Object In shl.NameSpace("c:\temp\test.zip").Items
            shl.NameSpace("c:\").CopyHere(fi)
        Next