QDir单键移动v2

/*
主脚本调用方式
#IfWinActive, [Q-Dir 6.
F6::Fun_QdirMove()		;[单键移动]
!1::Fun_QdirMove(1)		;[单键移动到窗口1]
!2::Fun_QdirMove(2)		;[单键移动到窗口2]
!3::Fun_QdirMove(3)		;[单键移动到窗口3]
*/
Fun_QdirMove(WinTar:=0)		;[Qdir热键移动]
{
    Clipboard =
    Send ^c

    WinGetActiveTitle, WinTitle
    StringLeft, QdirWinCur, WinTitle, InStr(WinTitle, "[Q-Dir 6") - 3
    ControlGetText, QdirWin1, Edit3, A
    ControlGetText, QdirWin2, Edit7, A
    ControlGetText, QdirWin3, Edit9, A

    If (WinTar = 0)
    {
        IfEqual, QdirWinCur, %QdirWin1%, SetEnv, QdirWinTar, %QdirWin2%
        IfEqual, QdirWinCur, %QdirWin2%, SetEnv, QdirWinTar, %QdirWin1%
        IfEqual, QdirWinCur, %QdirWin3%, SetEnv, QdirWinTar, %QdirWin1%
    }

    IfEqual, WinTar, 1, SetEnv, QdirWinTar, %QdirWin1%
    IfEqual, WinTar, 2, SetEnv, QdirWinTar, %QdirWin2%
    IfEqual, WinTar, 3, SetEnv, QdirWinTar, %QdirWin3%

    ClipWait, 1
    File = %Clipboard%
    Loop, parse, File, `r, `n
        FileMove, %A_LoopField%, %QdirWinTar%
;    Msgbox, % "Move File `r`n`r`n" . File . "`r`n`r`n" . QdirWinCur . "`r`n`r`n  To  `r`n`r`n" . QdirWinTar

    Return
}

给TA捐赠
共{{data.count}}人
人已捐赠
其他函数

shift跳转函数

2020-3-16 16:25:53

其他

QDone(快启&盲操)

2020-3-16 23:38:17

个人中心
购物车
优惠劵
有新私信 私信列表
搜索