System.IO.Compression e ZipFile - estrae e sovrascrive

Question

Sto usando le librerie VB.NET standard per estrarre e comprimere i file. Funziona bene, ma il problema arriva quando devo estrarre e i file esistono già.

codice che utilizzo

Importazioni:

Imports System.IO.Compression 

Metodo chiamo quando si blocca

ZipFile.ExtractToDirectory(archivedir, BaseDir) 

ArchiveDir e BaseDir sono impostati come bene, infatti funziona se non ci sono file sovrascrivere. Il problema arriva esattamente quando ci sono.

Come posso sovrascrivere i file in estrazione senza utilizzare librerie di terze parti?

(Nota sto usando come riferimento System.IO.Compression e System.IO.Compression.Filesystem)

Dal momento che i file vanno in più cartelle con i file già esistenti Eviterei manuale

IO.File.Delete(..) 

Answer 1

Usa ExtractToFile con sovrascrivere come vero per sovrascrivere un file esistente che ha lo stesso nome del file di destinazione

Dim zipPath As String = "c:\example\start.zip" 
    Dim extractPath As String = "c:\example\extract" 

    Using archive As ZipArchive = ZipFile.OpenRead(zipPath) 
     For Each entry As ZipArchiveEntry In archive.Entries 
      entry.ExtractToFile(Path.Combine(extractPath, entry.FullName), True) 
     Next 
    End Using 

Answer 2

ho trovato la seguente Imple mentation ha lavorato pienamente per risolvere i problemi descritti sopra, ha funzionato senza errori e ha sovrascritto con successo i file esistenti e creato le directory secondo necessità.

 ' Extract the files - v2 
     Using archive As ZipArchive = ZipFile.OpenRead(fullPath) 
      For Each entry As ZipArchiveEntry In archive.Entries 
       Dim entryFullname = Path.Combine(ExtractToPath, entry.FullName) 
       Dim entryPath = Path.GetDirectoryName(entryFullName) 
       If (Not (Directory.Exists(entryPath))) Then 
        Directory.CreateDirectory(entryPath) 
       End If 

       Dim entryFn = Path.GetFileName(entryFullname) 
       If (Not String.IsNullOrEmpty(entryFn)) Then 
        entry.ExtractToFile(entryFullname, True) 
       End If 
      Next 
     End Using