Någon som vet hur man unzippar en fil i vb?

Tror att jag hittade ett exempel nånstans på internet nån gång, fast det va hur man packade upp och ner rar-filer.

/Hjorten

Det finns tredjeparts komponenter att köpa för ändamålet, minns inte vad den jag har sett heter men kolla på de stora komponentsajterna som componentsource.com

Titta efter DynaZIP på www.innermedia.com. Har för mig att jag har sett något exempel i Resource Library eller Tips & Trix.

/Johan

.

Tackar för tipsen!

Tackar för tipsen!

kolla på www.activex.com
och sök efter zip...
då hittar du en massa ocx-filer

hej, i vb finns en component som man kan lägga till från Project/References som heter Xceed Zip Compression Library v4.1 (SP 5) och då får man fram komponenter som kan användas till att zippa o zippa upp filer:

Zipp:

Dim ResultCode As xcdError
Dim Zip As New XceedZip

' All properties keep their default values except the two below
Zip.FilesToProcess = "c:\test\ADRUPD02.txt"
Zip.ZipFilename = "c:\test\my test.zip"
Zip.PreservePaths = False

' Start zipping
ResultCode = Zip.Zip

' Check the return value.
If ResultCode <> xerSuccess Then
MsgBox "Unsuccessful. Error # " + Str(Err) + " occurred. " + _
"Description: " + Zip.GetErrorDescription(xvtError, _
ResultCode)
Else
MsgBox "File(s) successfully zipped."
End If

Unzipp:

Dim XceedZip1 As New XceedZip
Dim ResultCode As xcdError

XceedZip1.FilesToProcess = "ADRUPD02.txt" ' The file to unzip
XceedZip1.PreservePaths = False 'In case file is stored in the
' zip file with a path, we need to make sure the path is
' removed so that the file will match with "readme.txt"
XceedZip1.UnzipToFolder = "c:\test\unzipped files"
XceedZip1.ZipFilename = "c:\test\my test.zip"

' Start unzipping
ResultCode = XceedZip1.Unzip
' Check the return value.
If ResultCode <> xerSuccess Then
MsgBox "Unsuccessful. Error # " + Str(Err) + " occurred. " + _
"Description: " + XceedZip1.GetErrorDescription(xvtError, _
ResultCode)
Else
MsgBox "File(s) successfully unzipped."
End If

Dessa två kodsnuttar fungerar och du kan hitta mkt mer info på sidan:
http://www.xceedsoft.com/cs/listing.asp

Mvh

Johan

Du får köra på denna istället, den andra funkade inte så bra! Lycka till!
http://www.xceedsoft.com/cs/

Ladda ner "WinZip Command Line Support Add-On" från winzips hemsida.
Med denna kan du skicka med parametrar som styr zippning/uppzippning.