DirCopy

复制文件夹, 及其所有子文件夹和文件(类似于 xcopy).

DirCopy Source, Dest , Overwrite

参数

Source

类型: 字符串

源目录的名称(不含末尾的反斜杠), 如果未指定绝对路径, 则假定在 A_WorkingDir 中. 例如: C:\My Folder

Dest

类型: 字符串

目标目录的名称(不含末尾的反斜杠), 如果未指定绝对路径, 则假定在 A_WorkingDir 中. 例如: C:\Copy of My Folder

Overwrite

类型: 整数(布尔值)

此参数决定是否覆盖已存在的文件. 如果省略, 它默认为 0(false). 指定下列值之一:

0(false): 不覆盖现有的文件. 如果已经存在以 Dest 为名称的文件或目录, 则操作会失败并且没有任何效果.

1(true): 覆盖现在的文件. 但是, 不会删除在 Dest 中没有被 Source 目录中文件覆盖的其他子目录或文件.

错误处理

如果发生错误, 则抛出异常.

但是, 如果源目录包含任何由 PageName.htm 的文件和相应的名称为 PageName_files 的目录组成的保存的网页, 那么即使复制成功也可能抛出异常.

备注

如果目标目录的结构不存在, 则可行时会进行创建.

由于该操作将以递归方式复制文件夹及其所有子文件夹和文件, 因此将文件夹复制到自身内部某个位置的结果是不确定的. 要解决此问题, 请先将其复制到自身外部, 然后使用 DirMove 将其复制移动到所需位置.

DirCopy 只复制单个文件夹. 若要复制文件夹中的内容(它的所有文件和子文件夹, 而不复制文件夹本身), 请参阅 FileCopy 的示例部分.

相关

DirMove, FileCopy, FileMove, FileDelete, file-loops, DirSelect, SplitPath

示例

DirCopy "C:\My Folder", "C:\Copy of My Folder"

SourceFolder := DirSelect(, 3, "Select the folder to copy")
if SourceFolder = ""
    return
; 否则继续.
TargetFolder := DirSelect(, 3, "Select the folder IN WHICH to create the duplicate folder.")
if TargetFolder = ""
    return
; 否则继续.
Result := MsgBox("A copy of the folder '" SourceFolder "' will be put into '" TargetFolder "'. Continue?",, 4)
if Result = "No"
    return
SplitPath SourceFolder, &SourceFolderName  ; 仅从它的完整路径中提取文件夹名称.
try
    DirCopy SourceFolder, TargetFolder "\" SourceFolderName
catch
    MsgBox "The folder could not be copied, perhaps because a folder of that name already exists in '" TargetFolder "'."
return