AutoHotkey实现复制不含路径与扩展名的文件名

AI 小北

2026-5-25

提取资源管理器选中文件信息的AutoHotkey脚本

给大家分享一个实用的AutoHotkey小脚本，按下快捷键q就能快速获取资源管理器中选中文件的关键信息：

提取不含路径与扩展名的纯文件名
弹出提示框展示文件名和完整路径
自动把这些信息复制到剪贴板，方便后续使用

这个脚本由Odlanir编写，完整代码如下：

q::
fileselected := Explorer_GetSelection()
SplitPath, fileselected, fn
MsgBox % "FileName :`t" fn "`nFullName :`t" fileselected
clipboard = % "FileName :`t" fn "`nFullName :`t" fileselected
return

Explorer_GetSelection(hwnd="") {
    WinGet, process, processName, % "ahk_id" hwnd := hwnd? hwnd:WinExist("A")
    WinGetClass class, ahk_id %hwnd%
    if (process = "explorer.exe")
        if (class ~= "Progman|WorkerW") {
            ControlGet, files, List, Selected Col1, SysListView321, ahk_class %class%
            Loop, Parse, files, `n, `r
                ToReturn .= A_Desktop "\" A_LoopField "`n"
        } else if (class ~= "(Cabinet|Explore)WClass") {
            for window in ComObjCreate("Shell.Application").Windows
                if (window.hwnd = hwnd)
                    sel := window.Document.SelectedItems
            for item in sel
                ToReturn .= item.Path "`n"
        }
    return Trim(ToReturn, "`n")
}