Windows 10同层级目录快速跳转至相邻文件夹的实现方案问询

核心思路 #

绕过资源管理器视图模式的限制，直接从文件系统层面获取同层级目录列表，步骤如下：

1. 读取当前资源管理器窗口的打开路径
2. 提取该路径的父目录
3. 遍历父目录下所有子文件夹生成有序列表
4. 定位当前文件夹在列表中的位置，跳转至前一个或后一个文件夹

完整AHK代码 #

; 绑定Alt+左箭头跳转到上一个同层级文件夹
!Left::GoToAdjacentFolder(-1)
; 绑定Alt+右箭头跳转到下一个同层级文件夹
!Right::GoToAdjacentFolder(1)

GoToAdjacentFolder(direction) {
    ; 仅在资源管理器窗口生效
    WinGet, activeWin, ProcessName, A
    if (activeWin != "explorer.exe") {
        ToolTip, 请在资源管理器窗口中操作
        SetTimer, ToolTip, -1500
        return
    }

    ; 获取当前资源管理器的路径
    explorerHwnd := WinExist("A")
    for window in ComObjCreate("Shell.Application").Windows {
        if (window.HWND == explorerHwnd) {
            currentPath := window.Document.Folder.Self.Path
            break
        }
    }
    if (!currentPath) {
        ToolTip, 无法获取当前路径
        SetTimer, ToolTip, -1500
        return
    }

    ; 提取父目录（根目录则自身为父目录）
    SplitPath, currentPath, , parentPath
    parentPath := parentPath ? parentPath : currentPath

    ; 收集所有同层级文件夹
    folderList := []
    Loop, Files, %parentPath%\*, D
    {
        folderList.Push(A_LoopFileFullPath)
    }
    if (folderList.Length() <= 1) {
        ToolTip, 无同层级文件夹可跳转
        SetTimer, ToolTip, -1500
        return
    }

    ; 按名称排序，保证顺序稳定
    folderList.Sort()

    ; 定位当前文件夹的索引
    currentIndex := folderList.IndexOf(currentPath)
    if (currentIndex == -1) {
        ToolTip, 未找到当前文件夹
        SetTimer, ToolTip, -1500
        return
    }

    ; 计算目标索引（循环跳转）
    targetIndex := currentIndex + direction
    targetIndex := targetIndex < 1 ? folderList.Length() : targetIndex > folderList.Length() ? 1 : targetIndex

    ; 跳转至目标文件夹
    Run, explorer.exe "%folderList[targetIndex]%"
}

关键细节说明 #

• 路径读取：通过Shell.Application COM对象直接获取资源管理器路径，完全不受视图模式影响
• 列表排序：强制按文件夹名称排序，避免资源管理器不同视图（如详细信息、图标）导致的顺序差异
• 边界处理：默认开启循环跳转（第一个文件夹按上箭头跳至最后一个，反之亦然），可修改targetIndex计算逻辑取消循环
• 错误提示：针对非资源管理器窗口、无跳转目标等场景给出短暂提示

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