Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - unzip file
Forum - Visual Basic 6 - unzip file

Avatar
bero81 (Normal User)
Newbie


Messaggi: 16
Iscritto: 05/12/2006

Segnala al moderatore
Postato alle 11:53
Mercoledì, 11/02/2009


Sto' usando l'ocx free "Activezip" e vorrei sapere come si effettua l'unzip del file....

ciao e grazie!

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 15:18
Mercoledì, 11/02/2009
perchè usate i controlli bastano un pò di righe di codice...
http://www.codeguru.com/vb/gen/vb_graphics/fileformats/art ...

PM Quote
Avatar
rice103 (Normal User)
Newbie


Messaggi: 1
Iscritto: 28/02/2011

Segnala al moderatore
Postato alle 10:54
Lunedì, 28/02/2011
Quel progetto usa librerie, così si usa la shell del sistema operativo:

1. Inserire il riferimento a (menù: Progetto -> Riferimenti) Microsoft Shell Controls and Automation

2. Inserire la seguente routine dove vi pare:
Codice sorgente - presumibilmente VB.NET

  1. Public Sub unzip()
  2. Dim nomefile As String
  3. Dim nomedir As String
  4. Dim ClasseShell As Shell32Ctl.Shell
  5. Dim FileDaUnzip As Shell32Ctl.Folder
  6. Dim DestUnzip As Shell32Ctl.Folder
  7. Dim CopiaUnzip As Shell32Ctl.FolderItems
  8.  
  9. nomefile = “C:\temp\file.zip
  10. nomedir = “C:\temp”
  11.  
  12. Set ClasseShell = New Shell32Ctl.Shell
  13. file da unzippare
  14. Set FileDaUnzip = ClasseShell.NameSpace(nomefile)
  15. directory out
  16. Set DestUnzip = ClasseShell.NameSpace(nomedir)
  17. ‘ esecuzione della copia
  18. Set CopiaUnzip = FileDaUnzip.Items
  19.  
  20. Call DestUnzip.CopyHere(CopiaUnzip, 20)
  21.  
  22. End Sub



Bene ecco le opzioni di CopyHere:
0 Default. Nessuna opzione specificata.
4 Non mostra il box con la barra di progressione.
8 Rinomina il file di destinazione se il esiste un file con lo stesso nome nella directory di destinazione.
16 Clicca “Yes to All” in qualsiasi finestra di dialogo che viene mostrata.
64 Mantieni le informazioni, se possibile.
128 Esegui le operazioni solo se viene specificata una wildcard (*.*).
256 Mostra una finestra di dialogo con la progress bar ma senza mostrare i nomi dei file.
512 Non confermare la creazione di una nuova directory se l’operazione ne richiede la creazione.
1024 Non mostrare un’interfaccia utente se si verifica un errore.
4096 Disabilita la ricorsione.
9182 Non copiare i file collegati come un gruppo. Copia solo i file specificati.


Via: http://www.giovannidaddabbo.com/vb6-unzip-di-files-senza-l ...

PM Quote