Indigo Rose AutoPlay Media Studio (часть 2) - [33] :: Программы

Zloy_Gelud

Попробуй это:
Код:

-- Возвращает таблицу папок с ограниченным уровнем вложенности
function FindFolder(cRoot, nLevel)
-- Добавляет подпапки в таблицу
local function GetSubFolder(tSub, nCurLevel)
nCurLevel = nCurLevel + 1; -- текущий уровень вложенности...
if (nCurLevel <= nMaxLevel) then -- ограничение уровеня вложенности
for n, cFolder in tSub do -- перебор имен подпапок
tRes[Table.Count(tRes)+1] = cFolder; -- добавляем подпапку в таблицу результата
tSub = Folder.Find(cFolder, "*", false, nil); -- таблица подпапок
if (tSub) then -- если есть подпапки
GetSubFolder(tSub, nCurLevel); -- рекурсивный вызов ф-ции
end
end
end
end

tRoot = Folder.Find(cRoot, "*", false, nil); -- таблица папок корня
if (tRoot) then -- если в корне есть папки
for n, cFolder in tRoot do -- перебор имен папок корня
tRes[Table.Count(tRes)+1] = cFolder; -- добавляем папку в таблицу результата
tSub = Folder.Find(cFolder, "*", false, nil); -- таблица подпапок
if (nMaxLevel ~= 0 and tSub) then -- если нужна вложенность подпапок и есть подпапки
nCurLevel = 0; -- текущий уровень вложенности
GetSubFolder(tSub, nCurLevel); -- вызов ф-ции добавления подпапок в таблицу результата
end
end
end
return tRes; -- возвращаем результат
end
----------------------------------------

nCurLevel = 0; -- текущий уровень вложенности (не менять)
tRes = {}; -- таблица результата (не менять)

cRoot = "C:"; -- корневая папка
nMaxLevel = 1; -- максимальный уровень вложенности

tRes = FindFolder(cRoot, nCurLevel); -- получение таблицы папок с ограниченным уровнем вложенности

P.S. Возвращаемая таблица содержит полные пути к папкам, я думаю, что ты сам "вырежешь" имена конечных папок.

Модерирует : gyra, Maz
Widok (30-01-2009 12:11): Лимит страниц. Продолжаем здесь.	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102