Προς το περιεχόμενο

Zip File Extract - VB 8


themizzz

Προτεινόμενες αναρτήσεις

Δημοσ.

Κατέβασε από το codeplex το dotnetzip.

http://www.codeplex.com/DotNetZip

 

>
Dim ZipToUnpack As String = "StavrosD.zip"  
  Dim TargetDir As String = "StavrosD"  
  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   
      For Each e In zip1   
          e.Extract(TargetDir, ExtractExistingFileAction.OverwriteSilently)   
      Next  
  End Using  

Καλύτερα να ψάχνεις μόνος σου για τα εύκολα τμήματα κώδικα όπως αυτό, διαφορετικά θα δυσκολευτείς να προχωρήσεις.

Δημοσ.

Έψαξα αλλά δεν βρίκα τίποτα ρε φίλε :/

Ευχαριστώ πολύ πάντως...Το δοκιμάζω και σου λέω.

 

---------- Το μήνυμα προστέθηκε στις 18:52 ----------

 

Type 'ZipFile' is not defined.

Έχω αυτό το σφάλμα...Κατέβασα το dotnetzip σε μορφή msi και το έβαλα αλλά έχω αυτό το σφάλμα ακόμα...το κατέβασα και σε μορφή zip αλλά δεν ξέρω πως να το χρησιμοποιήσω

Δημοσ.

Μια χαρα δουλευει το ionic (και μπρβω στον δημιουρο του :-) )

 

3 πραματα

1) add reference (Εγω εβαλα αυτο Ionic.Zip.dll 1.8.4.28)

2) using Ionic.Zip; (import νομιζω στη vb)

3) το zip περιεχει αρχεια, αρα ψαχνεις ποιο αρχειο θες να κανεις αποσυμπιεση

 

 

Μια δοκιμη που εκανα

>using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.IO;
using Ionic.Zip;
namespace zip_lib_test
{
   class Program
   {
       static string filename = @"e:\test.zip";
       static void Main(string[] args)
       {
           
           MemoryStream stream = new MemoryStream();
          
           ZipFile zip = new ZipFile(filename);

           zip["test.txt"].Extract(stream);

           Console.WriteLine(Encoding.ASCII.GetString(stream.ToArray()));
           stream.Close();
           zip.Dispose();
           Console.Read();

       }

   }
}

Αρχειοθετημένο

Αυτό το θέμα έχει αρχειοθετηθεί και είναι κλειστό για περαιτέρω απαντήσεις.

  • Δημιουργία νέου...