Dll

[ann123]

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

[Killer42]

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?

[Killer42]

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

[Killer42]

Ok, you've informed me by Private Message that it's VB6. Did my link (see previous message) provide anything useful?

[SanjuMtr]

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

Private Function BackupPro()
    Dim Fsys As New FileSystemObject
    Dim Txtfl As TextStream

    
    Set Txtfl = Fsys.CreateTextFile(BackUpPath & "Tmp.Bat")
    Txtfl.WriteLine "C:\"
    Txtfl.WriteLine "Cd " & Mid(BackUpPath, 1, Len(BackUpPath) - 1)
    Txtfl.WriteLine "Pkzip " & BackUpPath & "CAADVMdb " & Mdb_Loc
    'Txtfl.WriteLine "Pkzip CAVMdb.ZIP " & Mdb_Loc
    Txtfl.Close
    Shell32Bit BackUpPath & "Tmp.bat" 'using bathc file

End Function

Private Function RestPro()
    Dim Fsys As New FileSystemObject
    Dim Txtfl As TextStream

    Fsys.CopyFile Text1.Text, BackUpPath & "CAADVMdb.ZIP"
    
    Set Txtfl = Fsys.CreateTextFile(BackUpPath & "Tmp.Bat")
    Txtfl.WriteLine "C:\"
    Txtfl.WriteLine "Cd " & Mid(BackUpPath, 1, Len(BackUpPath) - 1)
    Txtfl.WriteLine "pkunzip -o " & BackUpPath & "CAADVMdb.zip " & BackUpPath
    Txtfl.Close
    Shell32Bit BackUpPath & "Tmp.bat"
    
    If Not Fsys.FileExists(BackUpPath & "CA_ADVIC.mdb") Then
           MsgBox "Invalid backup file", vbCritical
           Exit Function
    End If
    
    Fsys.CopyFile BackUpPath & "CA_ADVIC.mdb", Mdb_Loc
    Fsys.DeleteFile BackUpPath & "CA_ADVIC.mdb "
    MsgBox "Restoration Complete", vbInformation
End Function

[Killer42]

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.