|
Archive Explorer (update 1)
|
Email
|
| Submitted on: |
4/15/2004 7:01:23 AM |
| By: |
Marco v/d Berg
|
| Level: |
Intermediate |
| User Rating: |
By 32 Users |
| Compatibility: |
VB 6.0 |
| Views: |
26087 |
|
|
|
|
|
This programm is capable of showing the contents of different archives
and some archives can be extracted.
Archives which contents can be shown are.
ZIP,GZ,TGZ,TAR,ARC,ARJ,RAR,CAB,LZH,LHA
Archives which contents can be extracted are.
ZIP,GZ,TGZ,TAR
All coding is done in vb without use of third party components so everybody
who needs to unzip something in there project can use this one so the need for
third party components will be absolete.
Don't expect it to be fast but it is as fast as we could get it.
it is far from Finished but since i haven't much time lately, i uploaded
it to PSC so maybe someone else could use the code from it.
Not all parts are coded by me but some parts are coded by john korejwa and others.
|
 |
| |
|
 Download code
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.
|
Other 7 submission(s) by this author
|
|
Report Bad Submission
|
Your Vote
|
| |
Other User Comments
|
 4/15/2004 7:19:37 AM: Unruled Boy
my god! it does good with english characters, but not for double-byte characters. Anyway, you deserve 5 stars!
(If this comment was disrespectful, please report it.)
|
4/15/2004 7:27:30 AM: Unruled Boy
use these lines of code to replace the corresponding ones so that it can handle all character-sets:
ReDim FileName(0 To Int2Lng(CentDat.LenFname) - 1)
Get #FileNum, , FileName
.FileName = StrConv(FileName, vbUnicode)
(If this comment was disrespectful, please report it.)
|
4/15/2004 7:30:12 AM: Unruled Boy
and it seems that it could not handle WinRAR files correctly
(If this comment was disrespectful, please report it.)
|
4/15/2004 8:37:00 AM: Unruled Boy
what's more, the codes could be tidy up and uses events such as to return password etc. so that is could be wrap into a tidy library
(If this comment was disrespectful, please report it.)
|
4/15/2004 8:53:48 AM: Light Templer
Hi Marco, looks pretty good, but code has errors, e.g.: Public Function Pack(ZipName As String, Files() As String, CompType As Integer, CompLevel As Integer, Optional IncludeDir As String = "") As Integer
If PackFileType = 0 Then Exit P-r-o-p-e-r-t-y
Pack = Archive.Pack(ZippedFile, ToPath)
End Function
____ Exit property in a function? ;)
_____ or: Private Function SystemName(System As Byte) As String
Select Case System
Case 0: VerMadeBy = "MS-DOS and O __________ VerMadeBy isn't defined ...!
Plz give us a working source, it looks SO good! Thx and regards - LiTe
(If this comment was disrespectful, please report it.)
|
4/15/2004 9:23:10 AM: Marco v/d Berg
Code has been updated so that it can be compiled without problems.
The problems with the dubble chars has been solved.
I'm still looking into the RAR-problem, it seems it has something to do whit RAR-versions.
Thank for the response (this way the programms only keep getting better).
(If this comment was disrespectful, please report it.)
|
4/15/2004 10:42:11 AM: Light Templer
reh, after some modifications code runs good in VB5. Some more comments on procedure level/funcs (what DOES this sub???) would be nice ;) . Anyway. 5 °°°°° for and thx for sharing!
LiTe
(If this comment was disrespectful, please report it.)
|
4/15/2004 10:54:20 AM: MH
Excellent.
Thank you for sharing and 5 G's from me. Just one quick suggestion, use API file functions to speed up reading.
Regards
MH
(If this comment was disrespectful, please report it.)
|
4/15/2004 1:34:59 PM: LaVolpe
I like it, although don't generally mess with anything but .zips in my job. Don't mind if I use the zip modules for personal projects?
(If this comment was disrespectful, please report it.)
|
4/15/2004 2:13:47 PM: John Phillips
very very nice
(If this comment was disrespectful, please report it.)
|
4/15/2004 3:07:22 PM: Shkyrockett
Excellent! This is wonderful. I have been waiting for this. Thank you, thank you, and thank you, for your work.
(If this comment was disrespectful, please report it.)
|
4/15/2004 9:01:37 PM: Zhu JinYong
Still didn't support double-byte
characters with "bad file name" error using the method what Unruled Boy said.
(If this comment was disrespectful, please report it.)
|
4/15/2004 9:57:37 PM: Unruled Boy
it should support chinese with zip files. I test it and it works!
(If this comment was disrespectful, please report it.)
|
4/16/2004 1:03:45 AM: Unruled Boy
and, make those class more tidy and replace all UI functions with Events(such as InputBox) so that it can be compiled into a handy library.
(If this comment was disrespectful, please report it.)
|
4/16/2004 1:09:01 AM: Unruled Boy
will you step up a project at sourceforge.net so that we can develop it together?
(If this comment was disrespectful, please report it.)
|
4/16/2004 1:36:36 AM: Knoton
This is great :-)
I have only tested the Zip class so far without encryption. But that alone is at least 5 globes, would give more if I could :-) Thank you very much for sharing this.
(If this comment was disrespectful, please report it.)
|
4/16/2004 1:37:20 AM: Knoton
I will check the rest later when I am not about to go to work :-)
(If this comment was disrespectful, please report it.)
|
4/16/2004 3:13:17 AM: Russell Sanders
Tested it seems to work well with zip files. Had some problems but all in all the file is good.
(If this comment was disrespectful, please report it.)
|
4/16/2004 5:51:26 AM: Zhu JinYong
It can't unzip files with Chinese characters' file name.Program stop at "RetVal = ZF.UnPack(FileUnzip, ToDir)" with error "Bad file name or number".
(If this comment was disrespectful, please report it.)
|
4/16/2004 7:33:43 AM:
Very impressive - I look forward to future developments.
(If this comment was disrespectful, please report it.)
|
4/16/2004 8:12:03 AM: Knoton
I have been testing to open encrypted .zip archives, seems to be a problem, some it says it is wrong password and some it says nothing but nothing happens. I really look forward to se updates of this :-)
(If this comment was disrespectful, please report it.)
|
4/16/2004 8:50:10 AM: Unruled Boy
to Zhu JinYong:
i handles zip files quite good, but not for RAR files.
(If this comment was disrespectful, please report it.)
|
4/16/2004 9:00:00 AM: Unruled Boy
I optimized the CRC algorithmn with a new class. but the main point that wastes time is the deflate function.
(If this comment was disrespectful, please report it.)
|
4/16/2004 3:03:54 PM: Shkyrockett
Try replacing as many "If" statements as possible with "Select Case" statements. This should speed your program up, though only by micro seconds.
(If this comment was disrespectful, please report it.)
|
4/16/2004 11:31:47 PM: Unruled Boy
Archive Explorer is now holded on sourceforge.net: http://sourceforge.net/projects/archiveexplorer/
Anyone who is interested in it can participate and contribute.
Comments are welcome!
(If this comment was disrespectful, please report it.)
|
4/17/2004 2:11:06 AM: Chris Malton
I have trouble getting it to work on XP with .CAB files. It doesn't let me extract them. I was going to use several of the classes in a setup program.
(If this comment was disrespectful, please report it.)
|
4/18/2004 5:34:21 AM: Unruled Boy
to Chris Malton,
currently Archive Explorer does not support cab extraction. I will work on it some time later.
(If this comment was disrespectful, please report it.)
|
4/20/2004 6:23:13 AM: Peter Graystone
Nice job.
But a nicer interface would have been better.
(If this comment was disrespectful, please report it.)
|
4/21/2004 2:55:16 PM: Shkyrockett
User Controlls version 6 will not work on my computer with a manifest file. I would reccomend switching to user controlls version 5, to enable XP visual styles in exe.
(If this comment was disrespectful, please report it.)
|
4/22/2004 4:22:55 AM: Unruled Boy
but vb5 no longer ship with win2003
(If this comment was disrespectful, please report it.)
|
5/2/2004 11:45:29 PM: Alpha Binary
congratulation for winning the contest ;)
you deserve it!
(If this comment was disrespectful, please report it.)
|
5/9/2004 9:55:45 PM:
adf
(If this comment was disrespectful, please report it.)
|
5/9/2004 9:58:47 PM:
hi
I am new to VB and I had a look at your code. Its very good and thorough as it caters for many compression types.
I cant seem to only get the "gzzip" class working. I have created a new vb project and all I want is being able to unzip gz files. How can i achieve that
thanks alot
Ronnel
(If this comment was disrespectful, please report it.)
|
5/20/2004 4:17:59 AM:
Very nice job!
I've done some corrections to the code: in particular I corrected RAR handling, the Interface and other things.
And I added ACE archives, too!!!
Congratulations!
Pierluigi
(If this comment was disrespectful, please report it.)
|
5/22/2004 8:30:25 PM: udtman
Author:
awesome stuff
Pierluigi:
Case of beer for the rar code, please ???
(If this comment was disrespectful, please report it.)
|
6/1/2004 5:43:34 AM:
Good Job! I Will Learn with you V/b bug~ hehe
(If this comment was disrespectful, please report it.)
|
6/1/2004 10:05:51 AM: Frank
Great Work. I added zoo, ha, ace and squeez.
(If this comment was disrespectful, please report it.)
|
1/3/2005 4:55:57 PM: Mark R WIthers
someone get in touch with me if they have the rar code
(If this comment was disrespectful, please report it.)
|
4/24/2005 2:54:24 AM:
Regd that rar archive problem. I've found out that the problem arises due to the comments that is present in the archive. the comment is not written "as is" but in an encoded format.
(If this comment was disrespectful, please report it.)
|
6/6/2006 7:14:00 PM: andy
TAR File Date times are not accurate.
(If this comment was disrespectful, please report it.)
|
9/28/2006 10:07:28 AM: Pantalone
Don't read unicode filenames in rar archives. Show this like "????????"
(If this comment was disrespectful, please report it.)
|
2/4/2009 5:05:36 AM: Tim Foster
This looks great, however, the pack routine in each class is empty. This is the feature I need. Can someone tell me where I can find an up to date version of this?
(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.)
To post feedback, first please login.
|
