Достать названия всех файлов в папке

[BETONOMESHALKA]

Не могу достать названия всех файлов и папок в определенной папке, надо загнать это в Listbox вместе с расширенеем файлов. Помогите пожалуйста.

[anGeee]

Можно так:

procedure TForm1.Button1Click(Sender: TObject);
var
  tsr : tsearchrec;
begin
  if FindFirst(DirectoryName + '*.*',faAnyFile,tsr) = 0 then
    repeat
      ListBox1.Items.Add(tsr.name);
    until FindNext(tsr) <> 0;
  FindClose(tsr);
end;

Правда, файлы выводятся в листбокс не в том порядке, в каком они находятся в директории..

[BETONOMESHALKA]

Надо чтобы уюзер сам указал папку

[anGeee]

Ну вот здесь же

if FindFirst(DirectoryName + '*.*',faAnyFile,tsr) = 0 then

есть переменная DirectoryName. Сюда и записывайте имя папки. Ну или можно сразу, если юзер вводит имя папки в edit, писать :

if FindFirst(edit1.text + '*.*',faAnyFile,tsr) = 0 then

[kta87]

Сообщение от anGeee

Правда, файлы выводятся в листбокс не в том порядке, в каком они находятся в директории..

Не подскажешь тогда по какому принципу идет формирование? алфавит?

[Shinobi3456]

procedure GetAllFiles( Path: string; Lb: TListBox);
var
sRec: TSearchRec;
isFound: boolean;
begin
isFound := FindFirst( Path + '\*.*', faAnyFile, sRec ) = 0;
while isFound do
begin
if ( sRec.Name <> '.' ) and ( sRec.Name <> '..' ) then
begin
if ( sRec.Attr and faDirectory ) = faDirectory then
GetAllFiles( Path + '\' + sRec.Name, Lb );
Lb.Add( Path + '\' + sRec.Name );
end;
Application.ProcessMessages;
isFound := FindNext( sRec ) = 0;
end;
FindClose( sRec );

end;
Тут рабочий пример. На сайте этому просвещена целая статья в плоть до того как его модернизировать и применить)Познавательно....
Скопировал с сайта http://myshinobi.ru/kak-poluchit-spi...-papke-delphi/.