Condividi:        

VB 2010 dezippare file

Problemi di HTML? Di PHP, ASP, .NET, JSP, Perl, SQL, JavaScript, Visual Basic..?
Vuoi realizzare programmi in C, C++, Java, Ruby o Smalltalk, e non sai da che parte cominciare?
Entra qui e troverai le risposte!

Moderatori: Anthony47, Triumph Of Steel, archimede

VB 2010 dezippare file

Postdi Francesco53 » 22/08/12 11:21

Buongiorno a tutti, ho utilizzato una procedura presa da internet per dezippare un file con Visual Studio 2010,
purtroppo non riesco a farla funzionare, posto il codice se qualcuno può darmi un aiuto su dove sbaglio.

Codice: Seleziona tutto
Imports System.IO.Compression
Imports Shell32
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim nomefile As String
        Dim nomedir As String
        Dim ClasseShell As Shell
        Dim FileDaUnzip As Shell32.Folder
        Dim DestUnzip As Shell32.Folder
        Dim CopiaUnzip As FolderItems

        nomefile = "TextBox1.Text"
        nomedir = "TextBox2.Text"

        ClasseShell = New Shell
        FileDaUnzip = ClasseShell.NameSpace(nomefile)
        DestUnzip = ClasseShell.NameSpace(nomedir)
        CopiaUnzip = FileDaUnzip.Items

    End Sub
End Class


Grazie
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Sponsor
 

Postdi Flash30005 » 24/08/12 05:02

Nel Nomefile (TextBox1.Text) inserisci anche il percorso?
Quale errore ti dà?

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Postdi Francesco53 » 24/08/12 07:30

Ciao flash grazie per il tuo interessamento,
prima di esporre la mia difficoltà, avevo provato a digitare nelle textbox gli indirizzi,
li avevo inseriti direttamente, così:
Codice: Seleziona tutto
 nomefile = "d:\ProgettiVB\Provadati.zip"
 nomedir = "d:\ProgettiVB\"


inseriti anche direttamente:
Codice: Seleziona tutto
FileDaUnzip = ClasseShell.NameSpace("d:\ProgettiVB\Provadati.zip")
DestUnzip = ClasseShell.NameSpace("d:\ProgettiVB\")


Purtroppo non succede niente, non scompatta il file, non da errore, niente.
Grazie
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Postdi archimede » 24/08/12 07:37

archimede
Moderatore
 
Post: 2851
Iscritto il: 07/11/02 12:41
Località: Genova

Postdi Francesco53 » 24/08/12 11:11

Grazie ad entrambi, il link di Alessandro mi ha consentito di realizzare la decompressione del file.
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45


Torna a Programmazione


Topic correlati a "VB 2010 dezippare file":


Chi c’è in linea

Visitano il forum: Nessuno e 10 ospiti