Aiuto "riferimento a un oggetto non impostato su un istanza di oggetto" vb.net

[nicosz]

Premetto che sono alle prime armi

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?

[nicosz]

EDIT:
la stringa incriminata é:
output.CopyHere(input.Items, 4)

[nicosz]

Ho risolto. Pomeriggio incollo il codice.

[nicosz]

Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
Dim outputpath As String = Application.StartupPath & "\TPM\texturepack\"
Dim inputpath As String = Application.StartupPath & "\TPM\download\" & ListBox1.SelectedItem & "\res.zip"
Try
Dim sc As New Shell32.Shell()
IO.Directory.CreateDirectory(".\TPM\data")
Dim output As Shell32.Folder = sc.NameSpace(outputpath)
Dim input As Shell32.Folder = sc.NameSpace(inputpath)
output.CopyHere(input.Items, 4)
If My.Settings.language = "ita" Then
MsgBox("Pacchetto texture installato.", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Successo!")
ElseIf My.Settings.language = "esp" Then
MsgBox("Paquete texture instalado.", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Triunfo!")
ElseIf My.Settings.language = "eng" Then
MsgBox("Texture pack installed.", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Success!")
End If
Catch ex As Exception
If My.Settings.language = "ita" Then
MsgBox("Qualcosa è andato storto.", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Ops!")
ElseIf My.Settings.language = "esp" Then
MsgBox("Algo salió mal.", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Ops!")
Else
MsgBox("Something went wrong.", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Ops!")
End If
End Try
End Sub