AutoHotKey: Explorer Directory Tree: Difference between revisions

From TotalcmdWiki
Jump to navigation Jump to search
No edit summary
 
(Added category AutoHotkey scripts)
 
(2 intermediate revisions by one other user not shown)
Line 1: Line 1:
<pre>
This script replaces Directory Tree box with the Windows folder tree.
;This script replaces Directory Tree box with the Windows folder tree.
;Explorer directory tree for Total Commander
;Author : Vigk


#noEnv
;Explorer directory tree for Total Commander
#singleInstance, force
;Author : Vigk
#noEnv
#singleInstance, force
!F10::
ifWinNotActive, ahk_class TTOTAL_CMD
{
send {!F10}
return
}
controlGetText, cdir, TMypanel2
stringTrimRight, cdir, cdir, 1
fileSelectFolder, sdir, *%cdir%, 2, Directory Tree
ifEqual, sdir, , return
postMessage, 1075, 2912, , , ahk_class TTOTAL_CMD
sleep 40 ; waits for the text box to be created
controlSetText, TInEdit.UnicodeClass1, %sdir%, ahk_class TTOTAL_CMD
controlSend, TInEdit.UnicodeClass1, {Enter}, ahk_class TTOTAL_CMD
return


!F10::
Back to [[AutoHotkey]]
ifWinNotActive, ahk_class TTOTAL_CMD
[[Category:AutoHotkey scripts|Explorer Directory Tree]]
{
send {!F10}
return
}
controlGetText, cdir, TMypanel2
stringTrimRight, cdir, cdir, 1
fileSelectFolder, sdir, *%cdir%, 2, Directory Tree
ifEqual, sdir, , return
postMessage, 1075, 2912, , , ahk_class TTOTAL_CMD
sleep 40 ; waits for the text box to be created
controlSetText, TInEdit.UnicodeClass1, %sdir%, ahk_class TTOTAL_CMD
controlSend, TInEdit.UnicodeClass1, {Enter}, ahk_class TTOTAL_CMD
return
</pre>

Latest revision as of 22:54, 1 June 2008

This script replaces Directory Tree box with the Windows folder tree.

;Explorer directory tree for Total Commander
;Author : Vigk
#noEnv
#singleInstance, force
!F10::
	ifWinNotActive, ahk_class TTOTAL_CMD
	{
		send {!F10}
		return
	}
	controlGetText, cdir, TMypanel2
	stringTrimRight, cdir, cdir, 1
	fileSelectFolder, sdir, *%cdir%, 2, Directory Tree
	ifEqual, sdir, , return
	postMessage, 1075, 2912, , , ahk_class TTOTAL_CMD
	sleep 40			; waits for the text box to be created
	controlSetText, TInEdit.UnicodeClass1, %sdir%, ahk_class TTOTAL_CMD
	controlSend, TInEdit.UnicodeClass1, {Enter}, ahk_class TTOTAL_CMD
return

Back to AutoHotkey