用法：选中文件，ctrl+g，自动整理到 D 盘，通过本实例简单改造可以实现各种自动整理功能，自动化办公的人士可以了解一下！购买文章后，免费给与指导！
    注意：更换代码中“D:\”为自身目标文件夹

    [erphpdown]

    1. ^g::
    2.     this_path := Selected_Files()        ; 检测选中的文件
    3.     Des_path:="D:\"
    4.     if (this_path)
    5.         loop, Parse, this_path , `n, `r  ; 在 `r 之前指定 `n, 这样可以同时支持对 Windows 和 Unix 文件的解析.
    6.         {
    7.             MoveFilesAndFolders(A_LoopField,Des_path)     ; 移动文件
    8.         }
    9.         else
    10.             MsgBox, 没有选中文件!
    11. return
    13. ;移动文件或文件夹
    14. MoveFilesAndFolders(SourcePattern, DestinationFolder, DoOverwrite = false)
    15. ; 移动匹配 SourcePattern 的所有文件和文件夹到 DestinationFolder 文件夹中且
    16. ; 返回无法移动的文件/文件夹的数目.
    17. {
    18.     ; 首先移动所有文件 (不是文件夹):
    19.     FileMove, %SourcePattern%, %DestinationFolder%, %DoOverwrite%
    20.     ErrorCount := ErrorLevel
    21.     ; 现在移动所有文件夹:
    22.     loop, %SourcePattern%, 2  ; 2 表示 "只获取文件夹".
    23.     {
    24.         FileMoveDir, %A_LoopFileFullPath%, %DestinationFolder%\%A_LoopFileName%, %DoOverwrite%
    25.         ErrorCount += ErrorLevel
    26.         if ErrorLevel  ; 报告每个出现问题的文件夹名称.
    27.             MsgBox, 文件夹%A_LoopFileFullPath% 不能移动至%DestinationFolder%.
    28.     }
    29.     return ErrorCount
    30. }
    31. ;检查是否选中文件
    32. Selected_Files()
    33. {
    34.     ;我的电脑句柄
    35.     IfWinActive, ahk_class CabinetWClass
    36.     {
    37.         for window in ComObjCreate("Shell.Application").Windows
    38.             if window.HWND = WinExist("A")
    39.                 this_window := window
    41.             ; 如果多个项目被选中
    42.         if(this_window.Document.SelectedItems.Count > 1)
    43.         {
    44.             these_files := ""
    45.             for item in this_window.Document.SelectedItems
    46.                 these_files .= item.Path . "`n"
    48.             return these_files
    49.         }
    50.     else
    51.         return this_window.Document.FocusedItem.Path
    52.     }
    54.     ; 桌面句柄
    55.     if(WinActive("ahk_class Progman") || WinActive("ahk_class WorkerW"))
    56.     {
    57.         ControlGet, selectedFiles, List, Selected Col1, SysListView321, A
    59.         ; 如果多个项目被选中
    60.         if InStr(selectedFiles, "`n")
    61.         {
    62.             these_files := ""
    63.             loop, Parse, selectedFiles, `n, `r
    64.                 these_files .= A_Desktop . "\" . A_LoopField . "`n"
    66.             return these_files
    67.         }
    68.         else
    69.             return A_Desktop . "\" . selectedFiles
    70.     }
    71.     else
    72.         return false
    73. }

    [/erphpdown]
    https://www.autoahk.com/archives/9210