Total Commander

[Вахмурка]

Я прокомментирую скрипт DirColor как очень несложный. Не знаю, зачем я это делаю, но больше ничем тебе помочь не смогу. У меня все работает. Более того, я знаю еще минимум двух человек, у кого тоже работает.

args Path
;;путь (%P)
local hwnd = win.handle("c=TTOTAL_CMD")
;;получаем дескриптор окна ТС
local IniFile = pprofolder ++ "scripts\ini\DirColor.ini"
;;указываем, где искать файл настроек
local Masks = ini.enum_keys(IniFile, "Colors")
;;какие маски в разделе [Colors]
local MCounter = line(Masks, 0)
;;сколько их
local Dirs = file.listfiles(Path, 4)
;;список поддиректорий текущего пути
local DCounter = line(Dirs, 0)
;;сколько их
local i, j, OneDir, OneMask, OneKey
local Desc = file.open(Path ++ "descript.ion", "w")
;;открыли файл descript.ion в текущей директории

if(Desc <= 0) do
messagebox("ok error", "File not opened", "FILE plugin error")
quit
endif
;;если не открылся, завершить

for(i = 1; i <= DCounter; i++)
;;цикл по директориям
OneDir = line(Dirs, i)
;;одна директория
for(j = 1; j <= MCounter; j++)
;;цикл по маскам
OneMask = line(Masks, j)
;;одна маска
if(file.validpath(OneDir ++ "\" ++ OneMask)) do
;;подходящая директория найдена
OneKey = ini.get(IniFile, "Colors", OneMask)
;;получить имя фильтра
file.writeline(Desc, file.nametype(OneDir) ++ " " ++ OneKey)
;;записать его в дескрипт.ион в формате "директория фильтр"
endif
endfor
endfor

file.close(Desc)
;;закрыть дескрипт.ион
win.sendmessage(hwnd, 0x400+51, 540, 0)
;;обновить панель

Вот. Если хочешь, чтобы скрипт работал, вставляй отладочную печать

win.debug(переме1, перем2, ...)

Я не знаю, чем еще я могу тебе помочь.
_________________
Сайт PowerPro+Total Commander
Скрипты PowerPro для Total Commander
* * *
«Не усматривайте злого умысла в том, что вполне объяснимо глупостью» (Р. Хэнлон)