Ziping PLEASE HELP

[Motoxpro]

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

[Beacon]

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

[Motoxpro]

visionfactory.com? i didnt c anything there

[dongaman]

Just a Tip:
Use api can also zip/unzip file

[gaffa]

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

- gaffa

[Joacim Andersson]

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.

[gaffa]

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

[dongaman]

Can not remembered which apis

[Motoxpro]

can some1 give me some cod on this because i a confusead

[X__man]

Just use the command line zipping utility from winzip and shell out to it.

[Motoxpro]

will you give me some code for that....i am new to this

[Motoxpro]

*BUMP*

[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.

[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

[Motoxpro]

*bumpety bumpety bump*

[DaoK]

Motoxpro you just have to make a batch who will use pkzip and shell it than delete the batch ok Stop bumping now

[Motoxpro]

how do i make a baatch file?

[DaoK]

you save a file with .bat with batch command in it.

[Motoxpro]

so i make a exe in vb and name it . bat?

[DaoK]

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.

[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?

[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.

[carlodin]

Here it is. Sorry but it came with Tweak-XP.
Rename it to "oca"

[carlodin]

Obs! Here it is.

[Motoxpro]

what are you talking about.....that zip doesnt work anyhow

[carlodin]

Do you never read?
Rename it to "saxzip.oca"

[MrPolite]

get this old dear pkzip, it is for MSDOS but you can use it with shell in VB

[Motoxpro]

and then what am i suposed to do with a .oca?

[Motoxpro]

hello?

[DaoK]

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

[Motoxpro]

ya i was ...i have just been tring to do this for a LONG time

[Joacim Andersson]

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

[Joacim Andersson]

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.

[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.

[Joacim Andersson]

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

[Motoxpro]

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

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

[Motoxpro]

dose that help any?

[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

[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.

[Motoxpro]

when i try it i get Error acheving but it still moves the file