[Pytanie]Rozpakowanie pliku.

[adrianawa]

Witam chciałbym ,aby po pobraniu archiwum automatycznie się rozpakowało.

Oto mój kod :

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

Dim client As New Net.WebClient

Dim Wersja As String = My.Computer.FileSystem.ReadAllText("Wersja.txt")

Dim nowawersja As String = client.DownloadString("https://dl.dropboxusercontent.com/u/202672277/wersja.txt")

If nowawersja > Wersja Then

If MsgBox("Chcesz pobrac nowa wersje?", vbQuestion + vbYesNo, "Wersja") = vbYes Then

Dim client1 As WebClient = New WebClient

Dim appData As String = GetFolderPath(SpecialFolder.ApplicationData)

client1.DownloadFileAsync(New Uri("https://dl.dropboxusercontent.com/u/202672277/s1.zip"), appData & "/s1.zip")

Else

MsgBox("Nowa wersja to" & nowawersja)

End If

End If

End Sub

i jeszcze dodać do tego progress bar

[adrianawa]

@Ref

[adrianawa]

@Ref

[adrianawa]

@Ref

[Matiyas]

musisz uzyc kodu

DotNetZip

  Dim ZipToUnpack As String = "C1P3SML.zip"  
   Dim TargetDir As String = "C1P3SML"  
   Console.WriteLine("Extracting file {0} to {1}", ZipToUnpack, TargetDir)   
   Using zip1 As ZipFile = ZipFile.Read(ZipToUnpack)   
       AddHandler zip1.ExtractProgress, AddressOf MyExtractProgress   
       Dim e As ZipEntry   
       ' here, we extract every entry, but we could extract    
       ' based on entry name, size, date, etc.   
       For Each e In zip1   
           e.Extract(TargetDir, ExtractExistingFileAction.OverwriteSilently)   
       Next  
   End Using  

zródło http://dotnetzip.codeplex.com/

[imago96]

Widzę że masz kod odemnie z tuta Obejrzyj 4 część tam dodałem ProgressBara i dałem warunek:

If ProgressBar1.Value = 100 then

Przepisz to wszystko co jest dalej i po:

ProgressBar1.Hide()

Dodaj to co masz w przycisku co wypakowuje plik.