Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - [VB .NET]Estrarre archivio .zip
Forum - C# / VB.NET - [VB .NET]Estrarre archivio .zip

Avatar
Rikisonny (Ex-Member)
Rookie


Messaggi: 59
Iscritto: 07/11/2007

Segnala al moderatore
Postato alle 21:50
Lunedì, 01/03/2010
Salve a tutti ho cercato un po su internet ma non ho trovato niente soprattutto per estrarre mentre per comprimere si.. Avevo trovato alcune dll da dover aggiungere ma spesso a pagamento e le poche che ho trovato gratuite non andavano... qualcuno mi puo aiutare su come potere estrarre un archivio *.zip?


SaveMessenger Founder
PM Quote
Avatar
lorenzo (Normal User)
Guru


Messaggi: 1178
Iscritto: 15/04/2008

Segnala al moderatore
Postato alle 22:05
Lunedì, 01/03/2010


"There's no point in being exact about something if you don't even know what you're talking about."

JOHN VON NEUMANN


Siamo italiani NO??
Allora scriviamo in ITALIANO!!!!
PM Quote
Avatar
Rikisonny (Ex-Member)
Rookie


Messaggi: 59
Iscritto: 07/11/2007

Segnala al moderatore
Postato alle 22:06
Lunedì, 01/03/2010
avevo gia letto ma non funziona... e poi io non devo comprimere e decomprimere un file io ho gia un archivio zip creato con winzip per esempio e devo solo estrarre i file contenuti nell'archivio in un altra cartella!

FUNZIONA QUESTO:
Codice sorgente - presumibilmente VB.NET

  1. Imports System.IO
  2. Imports ICSharpCode.SharpZipLib.Zip
  3. Public Class Form1
  4.  
  5.     Function Unzip(ByVal source As String, ByVal destination As String) As Boolean
  6.         If (Not (File.Exists(source))) Then
  7.             Return False
  8.         End If
  9.         If (Not (Directory.Exists(destination))) Then
  10.             Return False
  11.         End If
  12.         Try
  13.             Dim fastZip As FastZip = New FastZip
  14.             fastZip.ExtractZip(source, destination, "")
  15.         Catch
  16.             Return False
  17.         End Try
  18.         Return True
  19.     End Function
  20.  
  21.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  22.         Unzip("file.zip", "destinazione")
  23.     End Sub
  24. End Class


Ultima modifica effettuata da Rikisonny il 01/03/2010 alle 22:29


SaveMessenger Founder
PM Quote
Avatar
lorenzo (Normal User)
Guru


Messaggi: 1178
Iscritto: 15/04/2008

Segnala al moderatore
Postato alle 23:35
Lunedì, 01/03/2010
infatti, nel post che ti ho segnalato, la prima libreria è la stessa che hai usato tu...se avessi letto con più attenzione la risposta di Totem in quel post lo avresti capito subito


"There's no point in being exact about something if you don't even know what you're talking about."

JOHN VON NEUMANN


Siamo italiani NO??
Allora scriviamo in ITALIANO!!!!
PM Quote
Avatar
Rikisonny (Ex-Member)
Rookie


Messaggi: 59
Iscritto: 07/11/2007

Segnala al moderatore
Postato alle 23:37
Lunedì, 01/03/2010
sisisi lo so che è la stessa ma mi dava sempre errore invece con questo codice sono riuscito!


SaveMessenger Founder
PM Quote