Question

由于软件升级文件被保存到错误的目录，现有脚本不起作用，我需要修复它。文件在项目文件的更深处保存了几个文件夹。我知道我可以使用此命令复制目录

file copy -force "path_files_to_copy" "path_to_copied_into"

这样虽然它会复制文件夹，但路径指向的是该文件夹中的每个文件夹和文件。如何将指定路径中的所有内容复制到新位置而不仅仅是父级？

编辑

我解决了它，虽然在我看来我使用的步数比完成相同目标所需的步数多10倍，但它仍然有效。主要是改变＆＃34; \＆＃34;由tcl生成＆＃34; \＆＃34;将其视为角色。

# Copy files from this folder
set from $take_from ;# Everything from this folder
set to $bring_to ;# To this folder

set var [glob -dir $from *;]
set wordList [regexp -inline -all -- {\S+} $var] ;# makes a list 
for { set i 0 } {$i < [ llength $var ] } { incr i } { ;# Loop through files found

    set file_path [ lindex $var $i ]    
    set count 0
    set indx  0
    set limit [string length $file_path]
    set file_path_f $file_path
    set incra 0

    while { $count < $limit } { 

        set t [string index $file_path $count]      

        if { "$t" == "\\" } {

            set temp $count
            set indx $temp              
            set ll [expr $count + $incra]
            set file_path_f [string replace $file_path_f $ll $ll "\\\\"]
            incr incra

        }

       incr count 

}

#                FILES              DESTINATION
file copy -force $file_path_f           $to

}

Answer 1

使用glob command枚举源目录下的条目并分别复制每个条目：

foreach f [glob -directory $sourceDir -nocomplain *] {
    file copy -force $f $targetDir
}

如何在目录中复制文件而不是TCL中的整个目录？

1 个答案: