[BloodFooria]

Здравствуйте!

У меня проблемка, нужно засунуть в ComboBox.Items список папок из определенной папки на компьютере. Но вот как его получить, я не знаю. Кто может помочь?

Желательно по подробнее, с примерами

Заранее всем спасибо!

[lmikle]

FindFirst/FindNext/FindClose;

Код:

procedure GetFolderList(APath : String; var AList : TStringList);
var
  iFound : Integer;
  F : TSearchRec;
begin
  AList.Clear;
  APath := IncludeTrailingPathDelimeter(APath);
  iFound := FindFirst(APath + '*.*',faAnyFile,F);
  While iFound = 0 Do
    Begin
      If (F.Attr And faDirectory) <> 0 Then AList.Add(F.NAme);
      iFound := FindNext(F);
    End;
  FindClose(F);
end;

[BloodFooria]

Спасибо большое! Сейчас попробую
Ах да, а что в Uses прописывать нужно?

Добавил:
А нет разобрался. У вас опечатка IncludeTrailingPathDelimiter

[BloodFooria]

Ничего не получается
Постоянно ругается на строчку "AList.Clear;" но стоит ее закомментить, как ругается на "List.Add(F.Name);". Что делать? Мне очень нужно, а ничего не работает

[Rokuell]

Измени заголовок функции:

Код:

procedure GetFolderList(APath : String; AList : TStrings);

И передавай параметры вот так:

Код:

GetFolderList('C:\',ComboBox1.Items);

[BloodFooria]

Спасибо! Получилось!