Articoli,howto,guide di programmazione & Informatica generale.

Adesso invece impariamo come estrarre dei file da uno zip.
Come al solito scaricate questa dll qui.

Poi inserite questo codice:

Dim oUnZip as CGUnZipFiles

 
 set oUnZip = new CGUnZipFiles

 
 oUnZip.ZipFileName = "" 'Il percorso del file che volete estarre

 oUnZip.ExtractDir = "" 'Dove volte estrarre i files

 oUnZip.HonourDirectories = true 

 If oUnZip.UnZip <> 0 then

 MsgBox oUnZip.GetLastMessage

 End If

 
 set oUnZip = nothing

Perfetto ora al vostro programma aggiungete la dll precedentemente scaricata e estraete i files.