By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
435,639 Members | 2,276 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 435,639 IT Pros & Developers. It's quick & easy.

Dll

P: 1
Currently am doing a project in VB.I need a DLL that will help me unzip a file.Please do help me with it ASAP
Apr 9 '07 #1
Share this Question
Share on Google+
5 Replies


Expert 5K+
P: 8,434
Currently am doing a project in VB.I need a DLL that will help me unzip a file.Please do help me with it ASAP
What version of VB?
Apr 9 '07 #2

Expert 5K+
P: 8,434
By the way, if you have a look at this message in the Newsgroups Archive, I think it has some info on products that might be useful (I haven't checked them out, only glanced at the message).
Apr 9 '07 #3

Expert 5K+
P: 8,434
Ok, you've informed me by Private Message that it's VB6. Did my link (see previous message) provide anything useful?
Apr 10 '07 #4

P: 47
Currently am doing a project in VB.I need a DLL that will help me unzip a file.Please do help me with it ASAP
hello,
I am using Pkzip/pkunzip to zip/unzip file in VB. and its works Fine.
my mail id is <removed by Moderator> if you need those component then u
can mail me I will send you.
I give an example code How to use Pkzip/pkunzip
Expand|Select|Wrap|Line Numbers
  1. Private Function BackupPro()
  2.     Dim Fsys As New FileSystemObject
  3.     Dim Txtfl As TextStream
  4.  
  5.  
  6.     Set Txtfl = Fsys.CreateTextFile(BackUpPath & "Tmp.Bat")
  7.     Txtfl.WriteLine "C:\"
  8.     Txtfl.WriteLine "Cd " & Mid(BackUpPath, 1, Len(BackUpPath) - 1)
  9.     Txtfl.WriteLine "Pkzip " & BackUpPath & "CAADVMdb " & Mdb_Loc
  10.     'Txtfl.WriteLine "Pkzip CAVMdb.ZIP " & Mdb_Loc
  11.     Txtfl.Close
  12.     Shell32Bit BackUpPath & "Tmp.bat" 'using bathc file
  13.  
  14. End Function
  15.  
  16. Private Function RestPro()
  17.     Dim Fsys As New FileSystemObject
  18.     Dim Txtfl As TextStream
  19.  
  20.     Fsys.CopyFile Text1.Text, BackUpPath & "CAADVMdb.ZIP"
  21.  
  22.     Set Txtfl = Fsys.CreateTextFile(BackUpPath & "Tmp.Bat")
  23.     Txtfl.WriteLine "C:\"
  24.     Txtfl.WriteLine "Cd " & Mid(BackUpPath, 1, Len(BackUpPath) - 1)
  25.     Txtfl.WriteLine "pkunzip -o " & BackUpPath & "CAADVMdb.zip " & BackUpPath
  26.     Txtfl.Close
  27.     Shell32Bit BackUpPath & "Tmp.bat"
  28.  
  29.     If Not Fsys.FileExists(BackUpPath & "CA_ADVIC.mdb") Then
  30.            MsgBox "Invalid backup file", vbCritical
  31.            Exit Function
  32.     End If
  33.  
  34.     Fsys.CopyFile BackUpPath & "CA_ADVIC.mdb", Mdb_Loc
  35.     Fsys.DeleteFile BackUpPath & "CA_ADVIC.mdb "
  36.     MsgBox "Restoration Complete", vbInformation
  37. End Function
  38.  
Apr 10 '07 #5

Expert 5K+
P: 8,434
I am using Pkzip/pkunzip to zip/unzip file in VB. and its works Fine.
my mail id is...
Thanks for the information.

However, please don't post your e-mail address in the forum. Places like this are frequently scanned by scammer and spammers to grab any addresses they can find. Trust me, you would not like the result.

If you want people to e-mail you, turn on the "Receive Email from Other Members" option in the TSDN control panel (see link, top-right of this page), and make sure your address is correctly saved in your settings. That way, other TSDN members can send you e-mail, but your address is not publically displayed.
Apr 11 '07 #6

Post your reply

Sign in to post your reply or Sign up for a free account.