[Maza Faka]

Пример: »

Неплохо было бы добавить проверку на класс ExploreWClass, вдруг пользователь запускает Explorer вместо "Мой компьютер":

Код:

#NoTrayIcon

Opt("WinWaitDelay", 1)

Global $sFileNameFormat = "New_%i"

HotKeySet("^+n", "_CreateFolder_Proc") ;Ctrl + Shift + n
HotKeySet("^+w", "_Quit") ;Ctrl + Shift + w

While 1
    Sleep(1000)
WEnd

Func _CreateFolder_Proc()
    Local $sExplorer_Title = "[CLASS:CabinetWClass]"

    If Not WinActive($sExplorer_Title) Then $sExplorer_Title = "[CLASS:ExploreWClass]"
    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   ;==>_CreateFolder_Proc

Func _Quit()
    Exit
EndFunc   ;==>_Quit