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