|
|||||||||
|
|||||||||
| |||||||||
|
|||||||||
|
|||||||||
| |||||||||
|
|
|
| |||||||||
 |
|
|
«
Previous Thread
|
Next Thread
»
|
Thread Tools | Search this Thread | Rate Thread | Display Modes |
Dev Shed Forums Sponsor:
|
|
SlickEdit: Code in over 40 languages across 7 platforms. SlickEdit’s unmatched power, speed, and flexibility allows even the most accomplished developers to write better code faster. Download a free trial today! |
|
#1
April 18th, 2008, 02:51 AM
|
|||
|
|||
DLL to ZIP files and directories?
Hello
I need to find a DLL (either COM or non-COM, but I prefer the latter) for a VB5 application that can not only zip files, but also directories recursively. Using VbAccelerator's vbzip11.dll, I can zip files, but this code doesn't work to zip a directory: Instead of zipping everything that lives in the path I give, it zips files that live in App.Path  Does someone know either why this code doesn't work as intended, or another DLL that works? Thank you.
|
|
#2
April 18th, 2008, 12:17 PM
|
||||
|
||||
|
Quote:
Sure doesn't I can't even get that page to load ... so no idea I'm guessing that goes specifically states App.Path or merely defaults there it should theoretically, assuming it's half-sane code, to modify it to use a variable path you pass.
__________________
medialint.com "Energy has the opportunity to change the climate if it's done right." - Sen. John Ensign, R-Nev. (quoted out of context)
|
|
#3
April 18th, 2008, 12:42 PM
|
||||
|
||||
|
Your link is broken.
Anyway, here is a very good dll for zipping and unzipping directories. How to Zip and Unzip using VB5 or VB6 
|
|
#4
April 19th, 2008, 04:30 PM
|
||||
|
||||
|
Quote:
Works here, though. Quote:
Thanks, I'll check it out. AFAICT, turns out VBAccelerator's code (using vbzip11.dll, at least) ignores the BasePath property, and just starts zipping stuff that lives in App.Path, which means that the EXE must be put where data are located. Not good. Code:
Private m_cZip As cZip
[...]
Set m_cZip = New cZip
With m_cZip
.ZipFile = "backup.zip"
.ClearFileSpecs
'Ignored
.BasePath = "C:\test_vb\"
.BasePath = "C:\test_vb"
'.BasePath = App.Path
.AddFileSpec ("*.*")
.StoreFolderNames = True
.RecurseSubDirs = True
.Zip
End With
Set m_cZip = Nothing
|
|
| Viewing: Dev Shed Forums > Programming Languages - More > Visual Basic Programming > DLL to ZIP files and directories? |
| Thread Tools | Search this Thread |
| Display Modes | Rate This Thread |
|
|
 |
|
|
Del.icio.us
Digg
Google
Spurl
Blink
Furl
Simpy
Y! MyWeb
Linear Mode
