Folder uitpakken in VB

[Danielxmovies]

Hallo,

weet iemand hoe je een folder kan uitpakken in VB

Bijv. via een rar of zip.

Omdat ik wil dat mijn programmatje een folder download via dropbox maar dan moet ik hem of per bestand in map doen of inpakken en dan uitlaten pakken door VB

Kan iemand me please helpen

 

[JoZ1]

Dat kan met deze library.

 

[wampier]

Je kan ook de unrar.dll gebruiken. kun je meteen zip en rar files afhandelen.

File en voorbeeldcode kun je hier vinden

 

[Danielxmovies]

exe

Dat is een exe

is die goed staat daar de code en dll in?

 

[JoZ1]

Ja, als je dubbelklikt kun je 'm uitpakken.

Maar heb je ook al naar mijn post gekeken?

 

[Danielxmovies]

Jah die is wel goed.

maar ik kan niet vinden waar de source is.

welk bestand die moet uitpakken

 

[JoZ1]

Over welke heb je 't nou?
Je weet hoe een .DLL te gebruiken in je project?

Post #1500

 

[Danielxmovies]

ehm nee.

Ik heb die van jou.

Maar ik weet niet de source is van zip to Unback moet je daar de dropbox link in doen?

En Zipfile is not defined

Code:

[ Using zip1 As ZipFile = ZipFile.Read(ZipToUnpack)/QUOTE]

 

[JoZ1]

Je hebt de source niet nodig.

LEESVOER.

Toevoegen: Solution Explorer > Rechtermuisknop > Add Reference > Browse > Selecteer de DLL.

Bovenaan de code:

[CPP]Imports Ionic.Zip ''//(of zoiets)[/CPP]

 

[Danielxmovies]

Waar is de dll?

Die van die andere gast of die van jou?

 

[JoZ1]

Ik ga er vanuit dat we die van mij nemen. Ik heb je al een link gegeven waar je 'm kunt downloaden

 

[Danielxmovies]

Ehm nee?

Ik zie hem niet hoor?

Alleen die van de code

 

[JoZ1]

http://dotnetzip.codeplex.com/

Die link gaf ik al in mijn eerste post
Beter kijken.

 

[Danielxmovies]

Oke opgelost nu ga ik eventjes testen

 

[Danielxmovies]

niet

Hij pakt niet uit

dit is code:

[CPP]Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim ZipToUnpack As String = Environ("AppData") + "\.minecraft\saves\Island_Craft.zip"
Dim UnpackDirectory As String = "Extracted Files"
Using zip1 As ZipFile = ZipFile.Read(ZipToUnpack)
Dim XD As ZipEntry
' here, we extract every entry, but we could extract conditionally,
' based on entry name, size, date, checkbox status, etc.
For Each XD In zip1
XD.Extract(UnpackDirectory, ExtractExistingFileAction.OverwriteSilently)
Next

End Using
End Sub
[/CPP]

 

[JoZ1]

Je UnpackDirectory klopt niet
Dat moet een directory zijn.

 

[Danielxmovies]

Ow zie

hehe bedankt !!!

Ik ga forum sluiten en er komt nieuwe vraag aan over VB

Dus reageer sbek JOZ1

 

[JoZ1]

sbek?

Iig goed dat 't is opgelost.

 

[Danielxmovies]

Oke.

Maar hij kan hem niet openen.

Dropbox maakt de zip kapot ofso

als ie hem download is het maar 0 bytes

en als je opent geeft ie melding:

The archive is either in unknown format or damaged

 

[JoZ1]

Ik heb zelf ook dropbox en heb dit probleem niet.

Geldt dit voor alle archieven? Probeer hem nog eens te uploaden.