Tk

There are Tk commands that bring up the standard Windows style file browsers for selecting directories and files to open or save.

The following table contains some commonly used Tk file commands and a summary of their usage. For more in-depth explanations and a complete listing, referred to http://www.tcl.tk/man/ or to a Tcl/Tk handbook.
tk_getOpenFile
Opens a file browser to allow you to select an existing file.
tk_getSaveFile
Opens a file browser to allow you to either enter a new file name or select an existing file. If the file exists, you are prompted to overwrite the file.
tk_chooseDirectory
Opens a file browser to allow you to either enter a new directory name or select an existing directory.

There are additional options to these commands that allow for multiple file selection, initial directory specifications and file filtering, among others.

To open a file for reading, use tk_getOpenFile.
set filename [tk_getOpenFile];
puts "$filename";
Tcl returns the selected file name.
To select a file for saving, use tk_getSaveFile. The tk_getSaveFile command handles everything for you including write permissions, selecting existing files, creating directories on the fly, and all other functionality included in standard file browser. tk_getSaveFile returns the selected filename but does not actually create a file.
set filename [tk_getSaveFile];
puts "$filename";
Tcl returns the selected file name.
To make file selections easier for the user, the tk_getOpenFile and tk_getSaveFile commands provide a –filetypes option. This option takes only one parameter which is a list of file types. Each file type is also a list containing two parameters which are a file type description and the file extension. Since spaces are treated as list separators, parameters that contain spaces must be contained within quotes or braces. A file types parameter might look like:
{{"File Description 1" *.ext1} {"File Description 2" *.ext2}};

set filetypes "{{OptiStruct files} {*.fem *.parm}} {{All Files} {*.*}}";
set filename [tk_getOpenFile -filetypes $filetypes];
puts $filename;
Tcl returns the selected file name.
Now that you have a full path to a file, you will probably need to find out the file name without the full path, which directory the file is located in, and the file extension. If you selected a file named C:/My_files/readme.txt from the tk_getOpenFile command:
set filename [tk_getOpenFile];
C:/My_files/readme.txt

file dirname $filename;
C:/My_files

file tail $filename;
readme.txt

file extension $filename;
.txt

file rootname $filename;
readme

set path_list [file split $filename];
C:/ My_files readme.txt

lindex $path_list end;
readme.txt