[Creat0R]

можно и так: »

Вообще-то эта тема по AutoIt ...

BonD 007,

при нажатии на какую-нибудь горячую клавишу создавалась новая папка в активном окне »

Пример:

Код:

#NoTrayIcon

Opt("WinWaitDelay", 1)

Global $sFileNameFormat = "New_%i"

HotKeySet("^+n", "_CreateFolder_Proc")
HotKeySet("^+w", "_Quit")

While 1
    Sleep(1000)
WEnd

Func _CreateFolder_Proc()
    Local $sExplorer_Title = "[CLASS:CabinetWClass]"
    If Not WinActive($sExplorer_Title) Then Return

    Local $sPath = ControlGetText($sExplorer_Title, "", "Edit1")
    If Not StringInStr(FileGetAttrib($sPath), "D") Then Return

    Local $iFolder_Num = 1
    Local $sNewFolderName = StringFormat($sFileNameFormat, $iFolder_Num)

    While StringInStr(FileGetAttrib($sPath & "\" & $sNewFolderName), "D")
        $iFolder_Num += 1
        $sNewFolderName = StringFormat($sFileNameFormat, $iFolder_Num)
    WEnd

    DirCreate($sPath & "\" & $sNewFolderName)
EndFunc

Func _Quit()
    Exit
EndFunc