在Windows中获取没有文件名的路径

Question

如何在Windows中通过Tcl获取没有文件名的路径？ 我有这样的完整路径：

c:\My_Designs\ipcore_script\test\src\IP_CORE\mux\sus.do

我只需要路径，并且想要删除文件名以获取此信息：

c:\My_Designs\ipcore_script\test\src\IP_CORE\mux

Answer 1

dirname来自manual：

  

档案名称 名称

     

返回由名称中除最后一个元素之外的所有路径组件组成的名称。如果name是相对文件名并且只包含一个路径元素，则在Macintosh上返回.'' (or：''。如果name引用根目录，则返回根目录。例如，

     

档案名称c：/

     

返回 c：/ 。

     

请注意，只有在需要完成命令时才会执行波形符替换。例如，

     

文件目录号〜/ src / foo.c

     

返回〜/ src ，而

     

文件目录号

     

返回 / home （或类似内容）。

Answer 2

set path1 [info script]
# get the path and file name of currently opened file   
puts $path1                          
# shows the path                                             
set dir1 [file dirname $path1]  
# getting the directory from the fullpath                           
puts $dir1