PUBLIC SUB Button1_Click()
DIM indirizzo AS String
indirizzo = FileChooser1.SelectedPath
SHELL "gksudo unzip " & indirizzo & ""
END
PUBLIC SUB Button2_Click()
DIM indirizzo AS String
DIM percorso AS String
indirizzo = FileChooser1.SelectedPath
SHELL "tar xzf -C" & indirizzo & "" " -C" & percorso & " " ""
percorso = TextBox1.Text
END
PUBLIC SUB Button3_Click()
DIM indirizzo AS String
indirizzo = FileChooser1.SelectedPath
SHELL "gksudo tar jxvf " & indirizzo & ""
END
eccolo