Комментарии: Delphi. Получение списка всех файлов в папке и ее подпапках.

Автор: Скопировать все файлы из дерева в одну папку. | Elsper

Скопировать все файлы из дерева в одну папку. | Elsper — Sun, 28 Aug 2011 17:53:52 +0000

[...] хотя у меня есть процедура для того чтобы получить список всех файлов задача требует чтобы все файлы были в одной [...]

Автор: Elsper

Elsper — Tue, 05 Jul 2011 21:29:42 +0000

ну и отлично =)

Автор: Бауыржан

Бауыржан — Tue, 05 Jul 2011 21:24:27 +0000

Спс тебе Большое !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Все получилось

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 );
if pos(‘.mp3′,copy(sRec.Name, length(sRec.Name)-3,4))=1 then
Lb.Items.Add( Path + ‘\’ + sRec.Name );
if pos(‘.AAC’,copy(sRec.Name, length(sRec.Name)-3,4))=1 then
Lb.Items.Add( Path + ‘\’ + sRec.Name );
end;
Application.ProcessMessages;
isFound := FindNext( sRec ) = 0;
end;
FindClose( sRec );
end;

procedure TForm1.Button1Click(Sender: TObject);
var dir: String;
pwRoot : PWideChar;
begin
if not SelectDirectory(‘Выберите папку с музыкальными файлами’, pwRoot, Dir)
then Dir :=»
else Dir := Dir+»;

GetAllFiles( dir, listbox1 );
end;

end.

Автор: Elsper

Elsper — Tue, 05 Jul 2011 20:14:18 +0000

верни код как было используй то, что в посте
с ‘\*.mp3’ косяк выходит

но вместо

GetAllFiles( Path + ‘\’ + sRec.Name, Lb );
Lb.Items.Add( Path + ‘\’ + sRec.Name );

поставь

GetAllFiles( Path + ‘\’ + sRec.Name, Lb );
if pos(‘.mp3′,copy(sRec.Name, length(sRec.Name)-3,4))=1 then
Lb.Items.Add( Path + ‘\’ + sRec.Name );

Автор: Бауыржан

Бауыржан — Tue, 05 Jul 2011 18:40:04 +0000

Спс теперь у меня другая проблема есть папка «музыка» внутри музыки есть папка «Club» если выделить музыку то добавляются файлы которые находится в «Музыка» а те которые находиться в «Club» не добавляются уфф ели как объяснил ))

procedure GetAllFiles( Path: string; Lb: TListBox );
var
sRec: TSearchRec;
isFound: boolean;
begin
isFound := FindFirst( Path + ‘\*.mp3′, 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.Items.Add( Path + ‘\’ + sRec.Name );
end;
Application.ProcessMessages;
isFound := FindNext( sRec ) = 0;
end;
FindClose( sRec );
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
GetAllFiles( ‘E:\музыка’, listbox1 );
end;

end.