求助如何获取当前目录

haijie1223

这个问题曾经想过，不过一直没研究出接过来。

user3000

小龙的仍是获取地址栏，在地址栏随便编辑下就无意义了，其它诸如“桌面”等就不多说了
3000 的需要“标 ...
afan 发表于 2012-3-20 00:38

    "后宫"...."不走寻常道的佳丽"
嗯, 我已经百分百的肯定 A大 贪快手误打了好多个错字....
嗯, 一定是, 肯定是, 绝对是!

lixiaolong

回复 15# kxing

今天研究了一天
获取文件夹是没问题的，在地址栏编辑也没事.
就是有些，比如本地磁盘，我的文档...那些不能获取.

HotKeySet('{ESC}', 'ex')
AdlibRegister('_GetRmCurrentOpenedAddress')

While 1
        Sleep(100)
WEnd

Func _GetRmCurrentOpenedAddress()
        Local $IE, $CabinetWClass = '[CLASS:CabinetWClass]'
        Local $Shell = ObjCreate("Shell.Application")
        Local $CabinetWClass, $error, $win, $LocationURL

        If WinGetState($CabinetWClass) = 15 Then
                For $IE In $Shell.Windows()
                        ConsoleWrite($IE.LocationURL & @CRLF)
                        If StringInStr($IE.LocationURL, 'file:///') Then
                                $LocationURL = StringRegExpReplace($IE.LocationURL, 'file:///([^\r\n]+)', '\1')
                                $win = StringReplace(StringReplace($LocationURL, '%20', ' '), '/', '\')

                                        If WinActive(StringRegExpReplace($win, '.+\\([^\r\n]+)', '\1')) Then
                                                ToolTip($win)
                                                ExitLoop
                                        EndIf

                        EndIf
                        Sleep(10)
                Next
        Else
                ToolTip('')
        EndIf
EndFunc   ;==>_GetRmCurrentOpenedAddress

Func ex()
        Exit
EndFunc   ;==>ex

flyflykao

你们竟然无视我的回复，明显我给了正确答案

afan

你们竟然无视我的回复，明显我给了正确答案
flyflykao 发表于 2012-3-21 18:52

    你那是脚本当前的工作目录… 并非任意打开的一个文件夹，看清楼主的意思~

netegg

_winapi_getprocesscommandline应该可以吧

pigWoWo

路过 ，帮顶
路过 ，帮顶
路过 ，帮顶

netegg

回复 19# flyflykao

你那个答案明显错了，要的不是工作目录

星雨朝霞

回复 18# lixiaolong


    不错!顶了!

lixiaolong

回复 24# 星雨朝霞

刚刚发现，我那个脚本如果窗口最大化就获取不了.

知道了原因~

xz00311

如果你的脚本是在当前目录的就@ScriptDir

pp648852

回复 26# xz00311


    看清楚，楼主不是问那么菜的问题！