TreeUpTC

Title TreeUpTC
File Name TreeUpTC.txt
Description Move up directory tree using only internal commands
Author Vochomurka
Parameters -
Plugins Called win
Version 1.0
Updated on 28.10.19
local hwnd = win.handle("c=TTOTAL_CMD")
local P = win.sendmessage(hwnd, 0x400+50, 1000, 0)
local T, C, F1

C = win.sendmessage(hwnd, 0x400+50, 1006 + P, 0)
F1 = win.sendmessage(hwnd, 0x400+50, 1010 + P, 0)

if(C < 2 || F1 == 1 || C >= F1)
	win.sendmessage(hwnd, 0x400+51, 2002, 0)

C = win.sendmessage(hwnd, 0x400+50, 1006 + P, 0)

if(C == 1)
	quit

win.sendmessage(hwnd, 0x400+51, 2056, 0)

for(;1;)
	win.sendmessage(hwnd, 0x400+51, 2003, 0)
	T = win.sendmessage(hwnd, 0x400+50, 1002 + P, 0)
	F1 = win.sendmessage(hwnd, 0x400+50, 1010 + P, 0)

	if(T == 1 || F1 == 1)
		quit

	if(length(F1) > 9) do
		win.sendmessage(hwnd, 0x400+51, 2057, 0)
		continue
	endif

	win.sendmessage(hwnd, 0x400+51, 2050, 0)
	win.sendmessage(hwnd, 0x400+51, 2056, 0)
endfor

Main Page Total Commander PowerPro