Here is a simple script that does what you want
names default to here( 1 );
// Pick the file to open
myPath = Pick File("tdisplayed text string", "path to initial folder");
dt = open(myPath);
dt << save("path to work directory.jmp);
Details on Pick File, Open and Save functions are found in the Scripting Index:
Help==>Scripting Index
Jim