Скачать: CL | DM;

список имен файлов и папок   Найти похожие ветки 

← →
dolphin   (2004-11-14 20:22) [0]

какие есть функции чтобы узнать имена папок и файлов в каком то каталоге

---

← →
Гаврила ©   (2004-11-14 20:36) [1]

FindFirst, FindNext

---

← →
novice_man ©   (2004-11-14 20:49) [2]

Код для поиска всех подкаталогов в указанном каталоге FolderName (исключая "." и ".." - что тоже нормальное имя каталога), результат сохраняется в переменной типа TStrings (обязательно перед использованием: folders := TStringList.Create).

      NameSearch := FolderName + "\*.*";
      SearchRes := FindFirst(NameSearch, faAnyFile, SearchRec);
      if SearchRes = 0 then begin
         if (SearchRec.Attr = faDirectory) and
            ((SearchRec.Name <> ".") and (SearchRec.Name <> "..")) then folders.Add(IncludeTrailingBackSlash(FoldersList.Add(FolderName + "\" + SearchRec.Name);
         end;
      while SearchRes = 0 do begin
            SearchRes := FindNext(SearchRec);
            if (SearchRec.Attr = faDirectory) and
               ((SearchRec.Name <> ".") and (SearchRec.Name <> "..")) then folders.Add(IncludeTrailingBackSlash(FoldersList.Add(FolderName + "\" + SearchRec.Name)
            end;
      FindClose(SearchRec);

---

← →
Torin   (2004-11-14 21:25) [3]

SearchRec.Attr = faDirectory - непрокатит если директория будет например архивной, или только для чтения.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c