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