为TCL exec生成的字符串可在命令行运行，但exec调用时异常

你遇到的问题源于两个核心问题：路径参数转义错误，以及手动拼接命令字符串时嵌套引号的处理不当，最终导致forfiles命令执行失败。

修正后的代码 #

console show

proc watchFiles {watchDir filePattern} {
    set watchDir [file nativename [file normalize $watchDir]]
    # 直接传递命令参数，由TCL自动处理引号转义，规避嵌套引号问题
    if {[catch {
        set rawOutput [exec cmd.exe /c forfiles /p $watchDir /m $filePattern /d +0 /c {cmd /c echo @fdate @ftime @relpath}]
    } errMsg]} {
        # 处理无匹配文件或命令执行错误的场景
        puts "执行异常: $errMsg"
        set output [list]
    } else {
        set output [split $rawOutput "\n"]
        puts "检测到文件: $output"
    }
    after 10000 [list watchFiles $watchDir $filePattern]
}

try {
    # 路径使用双反斜杠转义，或直接用正斜杠
    watchFiles "d:\\zz\\" "*.txt"
    # 也可写成：watchFiles "d:/zz/" "*.txt"
} on error {msg} {
    puts stderr "$msg $::errorInfo $::errorCode"
}

关键修改说明 #

• 路径转义修正：原调用中的"d:\zz\"在TCL双引号字符串中，\作为转义符会导致实际传递的路径变为d:zz，造成目录不存在。改用"d:\\zz\\"（双反斜杠）或"d:/zz/"（正斜杠）才能正确传递目标目录。
• 取消手动拼接命令字符串：直接通过exec传递命令的各个参数，TCL会自动处理参数的引号包裹与转义，彻底解决嵌套引号引发的命令解析错误。
• 增加异常捕获逻辑：加入catch处理无匹配文件的情况（此时forfiles会返回非零退出码），避免程序因正常的空结果而崩溃。

内容的提问来源于stack exchange，提问作者dietmar bos