Получить все поддиректории указанной директорииDelphi , Файловая система , ДиректорииПолучить все поддиректории указанной директории
Оформил: DeeCo procedure GetSubDirs(const sRootDir: string; slt: TStrings); var srSearch: TSearchRec; sSearchPath: string; sltSub: TStrings; i: Integer; begin sltSub := TStringList.Create; slt.BeginUpdate; try sSearchPath := AddDirSeparator(sRootDir); if FindFirst(sSearchPath + '*', faDirectory, srSearch) = 0 then repeat if ((srSearch.Attr and faDirectory) = faDirectory) and (srSearch.Name <> '.') and (srSearch.Name <> '..') then begin slt.Add(sSearchPath + srSearch.Name); sltSub.Add(sSearchPath + srSearch.Name); end; until (FindNext(srSearch) <> 0); FindClose(srSearch); for i := 0 to sltSub.Count - 1 do GetSubDirs(sltSub.Strings[i], slt); finally slt.EndUpdate; FreeAndNil(sltSub); end; end; Процедура GetSubDirs получает все поддиректории указанной директории, рекурсивно просматривая содержимое папки и добавляя ее подпапки в список. Комментарии и вопросы:: 2010-01-23 23:38:34 :: re:Получить все поддиректории указанной директориипользователь: Argument. Откуда функция AddDirSeparator? У меня такой не числится. Нужно подключить какой то - модуль? :: 2010-02-01 18:01:05 :: re:Получить все поддиректории указанной директориипользователь: kan. AddDirSeparator это из GNU Pascal. Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Директории ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |