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:\\") -- 复制整个文件夹到指定目录

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))            ))-- 将目标目录中的所有文件拷贝到输出目录,如果已存在则不拷贝