A powerful and very quick compression program using the 32bit zlib.dll (V1.1.3) compression library originally written by Jean-loup Gailly and Mark Adler (variation of LZ77 Lempel-Ziv 1977 algoritm). The application is implemented through an extensive ArielZip class and a Winzip like client interface.
Features
* Powerful and very fast - compresses 6000 kb data files to 1500 kb (25%) in 2.1 seconds! * Multiple disk spanning with automatic sensing of disk capacity * User friendly floppy disk change dialogue showing contents of disk to be overwritten * Single and multiple file extraction * Extracted icons included in archive as bitmaps * 9 compression levels * Add folders and subfolders through recursive scanning of FSO objects * Add files with multiple file selection * Delete files from list and archive * Refresh files * File association of .azp extension with default icon using regobj.dll (included in zip file).
Other Programming Features
- About box referencing application object (revision etc)
- Custom Folder browse control implementing BrowseForFolder (ArielBrowseControl)
- Extensive use of FileSystemObject (requires scripting runtime dll)
- Automatic sensing of floppy disk insertion/removal
- Demonstration of toolbar control
- Small icon extraction using SHGetFileInfo calls in shell32.dll lib
- Extensive usage of CopyMem (Kernel32)
- Access the system temp folder through GetTempPath (kernel32)
- Registering of azp file type and associated default icon through regobj.dll
- Ini file manipulation using GetProfile and SaveProfile functions
Credits and links: see readme.txt file
Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. Afterdownloading it, you will need a program like Winzip to decompress it.Virus note:All files are scanned once-a-day by Planet Source Code for viruses, but new viruses come
out every day, so no prevention program can catch 100% of them. For your own safety, please:
Re-scan downloaded files using your personal virus checker before using it.
NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.
Scan the source code with Minnow's Project Scanner
If you don't have a virus scanner, you can get one at many places on the net
including:McAfee.com
Terms of Agreement:
By using this code, you agree to the following terms...
You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
You may link to this code from another website, but ONLY if it is not wrapped in a frame.
You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.
Once again another great program. Thanks alot for posting it. I love all the programs that you have posted. Keep up the good work. 5 GLOBES from me! (If this comment was disrespectful, please report it.)
Thanks guys for the votes - that's what it is all about! But please post tips, criticism and suggestions too. Tom (If this comment was disrespectful, please report it.)
Ok, like Tom said. Give the suggestions... Ppl only vote and say that it's cool. I did it also, but after I found one little bug, I.... It's about RightFormat function, it's not actually a bug, but imagine that a file will be, lets say 2,645,234,745 bytes. So when you open the file, it will show only 645,234,745 bytes, coz the format string is ###,###,##0. To fix you can just add a few more #-sign. But when you'll start making the column smaller the (...)-sign will apear earlier than it should normally. I think the way you did it is pretty cool, but there must be a way to do the way Winzip or other compress programs do it. ...everything didn't fit at ones... see my next feedback... (If this comment was disrespectful, please report it.)
...continue.... Here's my suggestion about saving icons within the file. It's a good idea, but it takes also space in the file when there're very many files. You just can do it like Winzip does. Creating icons when file is opening. I can give a module file that (the module wasn't made by me). My another suggestion is to crypt the strings like the names of files. Before that crypted sting you'll need to set Lenght of the string, so you'll be able to know when the string ends. It will also make some more space in the file. For that I have also a simple demo. That's all for now... Oh yeah, maybe a password will be cool :D (If this comment was disrespectful, please report it.)
Nightwolf, you raise some serious suggestions, and good ones too. I'll get in touch with you by e-mail and we can take it from there. Thanks a mil! (If this comment was disrespectful, please report it.)
If you would have made a function to write the zip file to the HD and split it into say 2.88MB files, A001.zip, A002.zip...then I would have some use for this. Otherwise, WinZip works just fine... Maybe you will do that in the next version? (If this comment was disrespectful, please report it.)
Dear RJ Soft, please do me a favour and send me the exact no of bytes available for a 2.88Mb disk. No problem to add it then (If this comment was disrespectful, please report it.)
Mike, splitting to hard drive or fdd is not the problem, but when saving to a fdd, a 2.88Mb disk does NOT provide exactly 2.88 Mb space, since some is required for the FAT table... (If this comment was disrespectful, please report it.)
Great stuff you should try and upgrade Alexandre's Auto Backup with this... here is the link to the download on planet source code http://www.planet-source-code.com/xq/ASP/txtCodeId.3690/lngWId.1/qx/vb/scripts/ShowCode. htm This link probably won't work so do a search for Auto Backup and look for the code by Alexandre Moro. Its nice code but needs compression. (If this comment was disrespectful, please report it.)
What is a program like this doing at PSC? It shouldn't be here! It should be made commercial, but anyhow, thanks for sharing your expertise with the rest of the dedicated VB Programmers. I wanted to make a ZIP program, but I wouldn't have known where to start had it not been for this source code. You are very obviously a professional programmer with a lot of future prospects. Keep up the good work and keep that code cool! In the meantime, I look forward to seeing what other projects you have in the pipeline. It is people like you whom deserve to be a contest winner since you put lots of time into making programs like this.
Robin (If this comment was disrespectful, please report it.)
Robin Thanks for the kind words. Its people like you that makes this site go round! My ultimate aim is the development of a share technical analysis program, incorporating advanced algorithms such as fourier transforms, fuzzy logic and neural networks. It's a truly lifetime job, already in its 6th year. But being a hobby, time is always the scarce item! Once again, thank you! (If this comment was disrespectful, please report it.)
My suggestion: add support for .zip files. This could easily be done with the info-zip compression librarys (freeware) (If this comment was disrespectful, please report it.)
Hi, when i tried to run the code i got the error "can't find project or library", then the references windows pops up and informed me that the missing thing is called Regstration Manipulation Classes". Pls email me at danielyh@optushome.com.au and tell me watta do@ !
thanx~! (If this comment was disrespectful, please report it.)
I agree that this is an excellent program -- very commercial quality. But I do have some pet peeves about it, if you don't mind me sharing them with you; I'd definitely stay away from DEFLNG, etc., Option Base 1, and all those other things that look a little too Quick Basic nowadays. Other than those non-issues, this is really top notch!
(If this comment was disrespectful, please report it.)
Tom de Lange ... I want a personalized thingy of your code ... with 2 functions ... one open(archive) .. open just filename ( not icons .. blabla) and one extract(archive,filename) .. to extract only one filename ! Can you do that ? (If this comment was disrespectful, please report it.)
.... if you want to contact me you can always contact me at: DjSup3rStar@yahoo.Com !!!! Thanks a lot (If this comment was disrespectful, please report it.)
Great code ! I'm looking forward on seeing your other programs, but I agree with Robin McKay, what is this code doing here?? 5 planets for you (If this comment was disrespectful, please report it.)
Wen i register ect.. and when i try to compile it i get the error procedure declaration does not match that of the event or procedure having the same name (If this comment was disrespectful, please report it.)
* redimming an array to 0 does not deallocate its memory. since you're using "option base 1", when you redim to 0 an error occurs, but you dont notice it cos you use an "on error resume next". this is annoying...
* vb always sets the return value of a function to 0, "" or false (depending on its data type). so if you dont modify the result of a function, do not assign it the default value when exiting.
* i think you're using too much disk space to store information which could be avoided if you optimize the saving format. you should try to find ways to make your compressed files smaller instead of relying on the zlib dll compressing capatibilities.
* think this: when we make programs, we want people to use it, not just to be stored in some clusters in your hard disk. that's why you should add some features which make your app useful. is there any good reason to use your app instead of winzip, winace, powerarchiver or another zipping utility...? (If this comment was disrespectful, please report it.)
i couldn't play it cause you've done parameters to standard subs like click. For example
Private Sub ArFolder_Click(SelectedPath As String) '-------------------------------------------- 'Check if path exists '-------------------------------------------- CheckCtrls
End Sub
You can't have parameters in a normal click-event, the same goes to change. Fix this and then maybe I can play it. (If this comment was disrespectful, please report it.)
Why - is the OCX and other dll's missing? Or am I missing something here? It would be nice to at least attempt to see what everyone above is talking about!
(If this comment was disrespectful, please report it.)
11/15/2002 12:06:55 AM:
where are the dll's and ocx??? (If this comment was disrespectful, please report it.)
12/17/2002 1:12:11 AM:
This code sounds amazing! But I can't get anything to work because I'm missing the .OCX file...can someone please help me out here. AIM me "StrykerXP" or email me! Thanks! (If this comment was disrespectful, please report it.)
3/15/2003 11:48:15 AM:
i can't run it... please send me the correct code than i can run it (If this comment was disrespectful, please report it.)
4/21/2003 5:46:17 PM:
include the ocx please. (If this comment was disrespectful, please report it.)
(If this comment was disrespectful, please report it.)
9/20/2003 6:33:12 AM:
I a'm missing the dll's and ocx!! 'Requirements (included in zip file) 'Ariel Browse Folder.ocx 'Registry manipulation (regobj.dll) 'Scripting runtime (scrrun.dll) how can i get them pls tell me the web site and pls write me a tutoria how to run it 10x (If this comment was disrespectful, please report it.)
10/5/2003 6:37:20 AM:
Hi send me the ocx and dll of the program of Ariel Zip Compression Utility with Disk Spanning V1.0 please I need to run tank you becouse I can't run (If this comment was disrespectful, please report it.)
10/20/2003 3:17:56 AM:
Can you please send me the OCX / dll files as they are not in the zip file when I download it, screen shot looks good but I would like to see it working (If this comment was disrespectful, please report it.)
11/3/2003 4:59:17 AM:
its nice to work with u r code..... (If this comment was disrespectful, please report it.)
3/16/2004 5:12:03 AM:
Hi, Can you please send me the OCX / dll files of Ariel Zip Compression Utility. thanks (If this comment was disrespectful, please report it.)
7/19/2004 1:41:55 AM:
Your code is very good.. But where can i find the browser you're telling. Likewise the regobj.dll. Thanks! (If this comment was disrespectful, please report it.)
7/20/2004 11:33:19 PM:
Very nice. 5 "globes" (If this comment was disrespectful, please report it.)
Tom the dll's and ocx!! are missing. 'Requirements (included in zip file) 'Ariel Browse Folder.ocx 'Registry manipulation (regobj.dll) 'Scripting runtime (scrrun.dll) how can i get them pls tell me the web site. (If this comment was disrespectful, please report it.)
Sccrun.dl-google it, other may get from MS or compile it. (If this comment was disrespectful, please report it.)
2/6/2005 11:29:46 AM:
hey mister - innitialy everything was OK - then some blog said it has bussiness value and now when I download the zip - files are missing , hey pal the code elves may grant you an academic award for your work but that does not mean you have to forget about the PSC community whom first gave you a supporting hand - now put back those dll and ocx and dont be cocky - be happy to share , thats how great programmers are made - you give first then you will get !! (If this comment was disrespectful, please report it.)
2/8/2005 5:54:09 PM:
I a'm missing the dll's and ocx!! 'Requirements (included in zip file) 'Ariel Browse Folder.ocx 'Registry manipulation (regobj.dll) 'Scripting runtime (scrrun.dll) how can i get them pls
(If this comment was disrespectful, please report it.)
Were are OCX's & DLL's??? (If this comment was disrespectful, please report it.)
6/4/2005 1:16:01 PM:
I can't find the ocx and dll either, and you didn't put it into the package! Can you send me a copy? The code is very nice! (If this comment was disrespectful, please report it.)
6/17/2005 9:15:30 AM:
This is nice, I dont need it but I download it maybe it's handy later (If this comment was disrespectful, please report it.)
Tom, I'd love to try your zip routine, but I cannot get it to run. As previously stated, there are some files missing. Are you providing information for obtaining them, or is this no longer available? (If this comment was disrespectful, please report it.)
thanks man its great (If this comment was disrespectful, please report it.)
Add Your Feedback
Your feedback will be posted below and an email sent to
the author. Please remember that the author was kind enough to
share this with you, so any criticisms must be stated politely, or they
will be deleted. (For feedback not related to this particular code, please
click here instead.)
By 60 Users
Download code
1/3/2001 5:43:25 PM: 
