Ziping PLEASE HELP

Printable View

Dec 18th, 2001, 10:28 PM
Motoxpro

Ziping PLEASE HELP

i have searched evvery when planet source code vbaccelerator ect. but i cant find a good ziper.....1 one that i need that when i click a button it will zip a file and then when i click another it will unzip
Dec 18th, 2001, 11:53 PM
Beacon

Go to visionfactory and get the 2 activex controls called vfzipper and vfunzipper they are free and rock!

:)
Dec 19th, 2001, 12:22 AM
Motoxpro

visionfactory.com? i didnt c anything there
Dec 19th, 2001, 12:35 AM
dongaman

Just a Tip:
Use api can also zip/unzip file;)
Dec 19th, 2001, 12:43 AM

www.vision-factory.com/activex. There is a nice control on PSC that does it. Search for "RichSoft" and you'll find it.

- gaffa
Dec 19th, 2001, 12:50 AM
Joacim Andersson

Quote:

Originally posted by dongaman
Just a Tip:
Use api can also zip/unzip file;)

What APIs would that be?
AFAIK there is no such thing in the Win32 API functions.
Dec 19th, 2001, 12:56 AM

You can use the InfoZip libraries which are free, but they are a nightmare to work on in VB cos they use heaps of callbacks, which are a pain to deal with. That said it is possible - look athte code on vbaccelerator...

- gaffa
Dec 19th, 2001, 01:21 AM
dongaman

Can not remembered which apis
Dec 19th, 2001, 01:39 PM
Motoxpro

can some1 give me some cod on this because i a confusead
Dec 19th, 2001, 02:03 PM
X__man

Just use the command line zipping utility from winzip and shell out to it.
Dec 19th, 2001, 02:12 PM
Motoxpro

will you give me some code for that....i am new to this
Dec 19th, 2001, 02:23 PM
Motoxpro

*BUMP*
Dec 19th, 2001, 02:25 PM
X__man

Go to www.winzip.com and look for their command line utility. Download it and install it, and shell out to it. If you need help on shelling, search this site, I have seen quite a few instances of it, or look in the VB help file.
Dec 19th, 2001, 03:25 PM
Motoxpro

i dont want the user to have to install a whole program just because i want to aadd somethingg to a zip :( that was why i wanted a ocx or something
Dec 19th, 2001, 04:02 PM
Motoxpro

*bumpety bumpety bump*
Dec 19th, 2001, 04:18 PM

Motoxpro you just have to make a batch who will use pkzip and shell it than delete the batch ok Stop bumping now
Dec 19th, 2001, 04:21 PM
Motoxpro

how do i make a baatch file?
Dec 19th, 2001, 04:23 PM

you save a file with .bat with batch command in it.
Dec 19th, 2001, 04:30 PM
Motoxpro

so i make a exe in vb and name it . bat?
Dec 19th, 2001, 04:32 PM

batch is a language... a DOS one if you want, very basic...but it's not vb. If you do not know Batch i am sure than you can do it in VB.
Dec 19th, 2001, 04:38 PM
Motoxpro

ok so i make a textfile put the winzip command in it save it as a *.bat file then i shell it in vb?
Dec 19th, 2001, 04:45 PM
carlodin

Hey!
Aren't you using XP! Bad for you. Becouse with xp you get a zip controlle. You can get it if you wan't wait a minut.
Dec 19th, 2001, 04:53 PM
carlodin

Here it is. Sorry but it came with Tweak-XP.
Rename it to "oca"
Dec 19th, 2001, 04:54 PM
carlodin

1 Attachment(s)

Obs! Here it is.
Dec 19th, 2001, 05:03 PM
Motoxpro

what are you talking about.....that zip doesnt work anyhow
Dec 19th, 2001, 05:17 PM
carlodin

Do you never read?
Rename it to "saxzip.oca"
Dec 19th, 2001, 05:24 PM
MrPolite

1 Attachment(s)

get this old dear pkzip, it is for MSDOS but you can use it with shell in VB
Dec 19th, 2001, 05:37 PM
Motoxpro

and then what am i suposed to do with a .oca?
Dec 19th, 2001, 06:26 PM
Motoxpro

hello?
Dec 19th, 2001, 06:40 PM

MotoxPro you are very stressed I think, people do not stay all the time here to check the board, give them time.
Dec 19th, 2001, 08:32 PM
Motoxpro

ya i was :)...i have just been tring to do this for a LONG time
Dec 19th, 2001, 08:42 PM
Joacim Andersson

1 Attachment(s)

OK here's a project I worked on a while ago.
It uses a DLL named ZipItApi.DLL (included in the ZIP file).
This project is not complete however since we desided to use something else while I was still developing these classes.
It only shows how to ZIP files together but there is an API for unzipping as well.
So try it out and use it in any way you like.

Best regards
Dec 19th, 2001, 08:47 PM
Joacim Andersson

Quote:

Originally posted by DaoK
MotoxPro you are very stressed I think, people do not stay all the time here to check the board, give them time.

I'm sorry if I'm being rather inpolite right now but I don't think you, DaoK, is the right person to tell people not to bump there threads since you actually been one that spamed most of these threads most of the times only to get your post count up. :)
Dec 19th, 2001, 08:54 PM

Joacim Andersson the day you will stop arrasing me like that I will be so happy ok, if you have noticed I do not post as before and I answer more question then ever. So please I do effort can you do the same please.
Dec 19th, 2001, 09:00 PM
Joacim Andersson

Quote:

Originally posted by DaoK
Joacim Andersson the day you will stop arrasing me like that I will be so happy ok, if you have noticed I do not post as before and I answer more question then ever. So please I do effort can you do the same please.

Well, if you look at my post I did apologise for saying it.
And I also put a smiley at the end, but you have to agree that you have spammed a lot of post before.
If you now changed that behaviour I'm glad and I apologise again for mentioning it

Best regards

here is the code i have but it wont zip it up it just moves it

VB Code:

Private Sub Command6_Click()
'unloading a track by the move function from the source
'the fullname directory to the dest thetext1 directory
On Error GoTo err:
   Dim fs As New FileSystemObject
fs.MoveFile FullName(Combo1.ListIndex) & "\" & MSFlexGrid1.Text, _
frmgetdir.text1.Text & "\" & Combo1.Text & "\" & MSFlexGrid1.Text
zip.Add "C:\Program Files\Motox Track Pro\Unloaded\QUARRIES" & "\" & MSFlexGrid1.Text
zip.Execute "C:\Program Files\Motox Track Pro\Unloaded\QUARRIES\track1.zip"
       prgloop.Max = LOOPMAX
    For i = 1 To LOOPMAX
        frmMxTrackPro.Caption = "Unloading........" & i
        prgloop.Value = i
        DoEvents
    Next
    frmMxTrackPro.Caption = "Motox Track Pro"
    prgloop.Value = 0
    UpdateLists
err:
    If err.Number = 9 Then
    MsgBox "You forgot to enter your directorys it looks like," & _
    " go to Edit | Directorys and enter your directorys"
    End If
    UpdateLists
End Sub

Dec 20th, 2001, 09:59 AM
Motoxpro

dose that help any?
Dec 20th, 2001, 11:00 AM
Joacim Andersson

Have you tried putting a break point in that sub and stepping through it.
There might be an error raised somewhere that makes it jump to your error checking label, but you're only show a MsgBox if the Err.Number = 9.

Best regards
Dec 20th, 2001, 11:07 AM
carlodin

Im back!!!
Ok go to vb and open "components" and go to the "saxzip.oca" and open it. It will be a zip controll. Havn't tryd it so very much but i fink it's good.
Dec 20th, 2001, 11:08 AM
Motoxpro

when i try it i get Error acheving but it still moves the file
Dec 20th, 2001, 11:10 AM
Motoxpro

Quote:

Originally posted by carlodin
Im back!!!
Ok go to vb and open "components" and go to the "saxzip.oca" and open it. It will be a zip controll. Havn't tryd it so very much but i fink it's good.

wont work...
Dec 20th, 2001, 11:14 AM
Joacim Andersson

Quote:

Originally posted by Motoxpro
when i try it i get Error acheving but it still moves the file

At what line does the error occur and what error message do you get?
Dec 20th, 2001, 11:27 AM
Motoxpro

its not like a error message like where it says end, debug. help, ect

its just a messagebox thats says error acheving
Dec 20th, 2001, 12:32 PM
Motoxpro

kind of like error traping or something im not sure
Dec 20th, 2001, 01:03 PM
Scott Penner

Here's some great code from VBPJ a few months back. It wraps Info-Zip's dlls into a COM dll. It seems to work great. There's also a test application to illustrate all the functionality of the COM dll.

Hope this helps!

:mad: :mad: I couldn't attach the file...

Follow this link to the file:
VBPJ zip program group
Jan 5th, 2002, 05:26 PM
Motoxpro

i couldnt get it to work