// I had a similar problem with removing the file name from the file path
Names Default To Here( 1 );
dt = Current Data Table();
current_file = dt << Get Path();
current_directory = Word([1 -2], current_file, "\");
// return the full string ([1 -1]), except for the last word ([1 -2])
data = Pick File(
"Select Data Files",
current_directory,
{"Excel|csv","JMP Files|jmp;jsl;jrn","All Files|*"},
1,
0,
"", multiple
);