AutoHotkey中DirCopy持续抛出‘失败’异常，求问题原因

可能的问题点及修复步骤： #

1. 目标路径父目录未创建
   DirCopy 不会自动创建目标文件夹的父级目录，如果 destination_folder "\" dos 对应的父路径不存在，复制会直接失败。你测试创建的 Folder 只是根目录下的测试文件夹，和 dos 对应的路径无关。
   修复：在复制前先创建目标的父目录：

dest_path := destination_folder "\" dos
; 创建目标路径的父目录
DirCreate DirName(dest_path)

2. 未启用覆盖模式
   如果目标文件夹 dest_path 已经存在，DirCopy 默认不会覆盖，导致复制失败。
   修复：添加第三个参数 true 启用覆盖：

DirCopy(aim, dest_path, true)

3. 路径拼接可能存在冗余斜杠
   aim "\" dos 可能会生成带双斜杠的路径（比如 aim 本身以 \ 结尾时），虽然系统通常能兼容，但可能引发异常。
   修复：使用 PathJoin 函数拼接路径（AutoHotkey v2.0.2+ 支持）：

aim := PathJoin(aim, dos)
dest_path := PathJoin(destination_folder, dos)

如果你的版本不支持 PathJoin，可以手动处理：

aim := Trim(aim, "\") "\" dos
dest_path := Trim(destination_folder, "\") "\" dos

4. Loop 语法错误
   AutoHotkey v2 中数组长度是方法，不是属性，arr.length 应该改为 arr.Length()，否则循环可能无法正确执行：

Loop arr.Length()

5. 未处理源文件夹未找到的情况
   如果 Loop Files 没匹配到任何文件夹，aim 会保持为空，后续复制必然失败。
   修复：添加检查：

if (!DirExist(aim)) {
    MsgBox "未找到源文件夹: " aim
    continue ; 跳过当前循环
}

6. 添加错误捕获，查看具体失败原因
   用 try-catch 包裹 DirCopy，能直接获取错误信息，帮你定位问题：

try {
    DirCopy(aim, dest_path, true)
} catch e {
    MsgBox "复制失败: " e.Message "`n错误代码: " e.Number
}

修复后的完整代码示例： #

#Requires AutoHotkey v2.0

clipboard := A_Clipboard
arr := StrSplit(clipboard, "`n")
source_folder := "C:\Users\####\Documents\AutoHotkey\WT"
destination_folder := "C:\Users\###\Documents\AutoHotkey\PSDT"

Loop arr.Length()
{
    name_part := arr[A_Index]
    ; 跳过空行（剪贴板拆分后可能存在）
    if (Trim(name_part) = "")
        continue
    sps := StrSplit(name_part, A_Tab)
    ; 检查拆分结果是否有效
    if (sps.Length < 2) {
        MsgBox "当前行格式错误: " name_part
        continue
    }

    name_part := sps[1]
    ep := sps[2]

    aim := ""
    dos := "FR " name_part " " ep

    Loop Files, source_folder "\FR " name_part "*", "D"
        aim := A_LoopFilePath 

    ; 检查源文件夹是否找到
    if (!DirExist(aim)) {
        MsgBox "未找到源文件夹: " aim
        continue
    }
    ; 正确拼接源路径
    aim := PathJoin(aim, dos)
    if (!DirExist(aim)) {
        MsgBox "源子文件夹不存在: " aim
        continue
    }

    dest_path := PathJoin(destination_folder, dos)
    ; 创建目标父目录
    DirCreate DirName(dest_path)

    MsgBox ". " aim
    MsgBox "> " dest_path

    ; 尝试复制并捕获错误
    try {
        DirCopy(aim, dest_path, true)
        MsgBox "复制成功: " dest_path
    } catch e {
        MsgBox "复制失败: " e.Message "`n错误代码: " e.Number
    }
}

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