DIM sName as string
DIM sVersion as string
DIM ipos1 as integer
DIM ipos2 as integer
DIM ipos3 as integer

ipos1 = Rinstr(Dialog.Path, "/")
ipos2 = Instr(Dialog.Path, "-")
ipos3 = Instr(Dialog.Path, ".tar") -4

sName = Mid$(Left$(Dialog.Path, ipos2), ipos1)
sVersion = Mid$(Left$(Dialog.Path, ipos3), ipos2)

SHELL "cd /tmp/" && sName && "-" && sVersion WAIT