关于 MAXScript 拷贝文件夹及内容到其他位置

  之前用 hiddenDOSCommand 本机测试通过,但是换其他电脑有时会不能用...

fn xcopy oldfile newfile =
(
    newfilepath = newfile + "\" + getFilenameFile oldfile
    xcopy_cmd = "xcopy /s /e /i /y " + oldfile + " " + newfilepath-- + " &&rd /s /q " + oldfile
    hiddenDOSCommand (xcopy_cmd as string) startpath:"C:\"
) -- 复制整个文件夹到指定目录

只能用 MAXScript 完成了...

fn copydir dir n =
(
    dir_array = GetDirectories (dir + "/*")
    for d in dir_array do 
    (
        join dir_array (GetDirectories (d + "/*"))
    )
    copy_files = #()
    append dir_array (dir + "/")
    for f in dir_array do
    (
        join copy_files (getFiles (f + "*"))
    )
    for c in copy_files do
    (
        dir_path = n + (replace (getFilenamePath c) 1 dir.count "")
        makedir dir_path
        copyfile c ( dir_path  + (filenameFromPath c))
        
    )
)-- 将目标目录中的所有文件拷贝到输出目录,如果已存在则不拷贝

先收集所有的子目录,然后逐个收集目录内的文件,再新建目标目录并拷贝文件.

可能方法比较笨...但是暂时能用.