Premetto che sono alle prime armi
codice:
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
Try
Dim sc As New Shell32.Shell()
IO.Directory.CreateDirectory(".\TPM\data\")
Dim output As Shell32.Folder = sc.NameSpace(".\TPM\texturepack\")
Dim input As Shell32.Folder = sc.NameSpace(".\TPM\download\" & ListBox1.SelectedItem & "\res.zip")
output.CopyHere(input.Items, 4)
Catch ex As Exception
If My.Settings.language = "ita" Then
MsgBox("Qualcosa č andato storto.", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Ops!")
Else
MsgBox("Something went wrong.", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Ops!")
End If
End Try
End Sub
Ho bisogno di aiuto: vorrei che, al click di un pulsante (in questo caso il button10) il file "res.zip" contenuto in una determinata cartella venga estratto in un' altra cartella. Ho usato il codice che ho incollato qua sopra, ma alla pressione del button10 mi dā questo errore: "riferimento a un oggetto non impostato su un istanza di oggetto". Cosa devo fare?