TreeDownCmd

Title TreeDownCmd
File Name TreeDownCmd.txt
Description Move down directory tree
Author Vochomurka
Parameters ("%p", "%n")
Plugins Called file, miscplugin
Icon
Version 1.0
Updated on 24.06.06
args Path, Name
local hwnd = win.handle("c=TTOTAL_CMD")
local Slash

if(select(Path, 2) == "\\") do
	Slash = "Script works only in directory tree, not network or special folders"
	messagebox("ok error", Slash, "TreeDown Script")
	quit
endif

if(file.isfolder(Path ++ Name) && Name) do			
	win.sendmessage(hwnd, 0x400+51, 2003, 0)			
	quit
endif

if(not file.isfolder(Path ++ Name)) do					
	if(length(Path) == 3) do
		Path = select(Path, 2)
		Slash = "Last folder in root visited. Go to the next drive?"
		if(messagebox("yesno warning", Slash, Path ++ " root") == 7)
			quit

		win.sendmessage(hwnd, 0x400+51, 2051, 0)		
		win.sendmessage(hwnd, 0x400+51, 2001, 0)		
			quit
	endif

	Path = remove(Path, -1)
	Name = file.nametype(Path)
	Path = file.folder(Path)
endif

for(1)
;Sub_TreeDownCmd - name of script TreeDownCmd 
	Slash = runfile.Subs\Sub_TreeDownCmd(Path, Name)
	if(not Slash) do										
		Slash = revindex(Path, "\")

		if(Slash == 0) do
			Path = select(Path, 2)
			Slash = "Last folder in root visited. Go to the next drive?"
			if(messagebox("yesno warning", Slash, Path ++ " root") == 7)
				quit

			win.sendmessage(hwnd, 0x400+51, 2051, 0)		
			win.sendmessage(hwnd, 0x400+51, 2001, 0)		
				quit
		endif

		Name = file.nametype(Path)
		Path = file.folder(Path)
	else
		tc.cd(hwnd, Slash)
		keys {home}
		quit
	endif
endfor								

Comments:

See comments to TreeUpCmd script.


All Scripts Total Commander TotalCmd.net PowerPro