[AHK]列出当前开着的目录以及开着的xls文档路径

188 篇文章 3 订阅
55 篇文章 7 订阅
/*
作者:sunwind
时间:2015年11月27日16:09:57
脚本说明:
1、获取到的当前资源管理器打开的路径
2、获取excel文档路径(可以扩展其它常用应用的文档路径)
3、用弹出菜单展示
4、点击菜单项可以打开相应路径
*/
!a::

    ;获取Explorer打开的目录
     dir.="【当前打开的路径有】`n"
    for oExplore in ComObjCreate("Shell.Application").Windows
    {  
        dir.= oExplore.LocationURL . "`n"
    }
    
    ;获取已经打开的excel文档路径
     dir.="【当前打开的xls有】`n"
    oExcel :=   ComObjActive("Excel.Application")
    for Item in oExcel.workbooks
    {
        dir.= oExcel.workbooks(A_index).FullName  "`n"
        oExcel.ActiveWindow.Caption :=  oexcel.ActiveWorkbook.FullName
    }
 
    Menu, MyMenu, Add  ; 添加分隔线.
    Menu, MyMenu,  DeleteAll ; 清空菜单项

    loop,parse,dir,"`n"    
    {
        if (InStr(A_loopfield,"file:///"))
        {   
            item:=StrReplace(A_LoopField,"file:///","")
            Menu, MyMenu, Add, %item%, MenuHandler
        }
        else
        {
            Menu, MyMenu, Add, %A_loopfield%, MenuHandler
        }
    }
Menu, MyMenu, Show
return
    
MenuHandler:
    if (not instr(A_ThisMenuItem,"【"))
        {
             OpenAndSelect="%A_ThisMenuItem%"
            Run,%OpenAndSelect%  ;这里改成你要的动作
        }

return




  • 1
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值