Получение файлов из подпапок

← →
it © (2003-04-10 00:18) [0]

Каким образом получить список файлов, содержащихся в папке и всех её подпапках, чтоб "во всю глубь". Наэна нана uGetFileList? Почему же он не забирается в подпапки...

← →
dataMaster © (2003-04-10 09:21) [1]

Это нужно?

procedure ScanDir(StartDir:string; List:TKOLListBox);
var
FindHandle : THandle;
FindData : TWin32FindData;
b : boolean;
s, str : string;
begin
FindData.dwFileAttributes := FILE_ATTRIBUTE_NORMAL;
FindHandle := FindFirstFile( PAnsiChar(StartDir+"*.*"), FindData);
if FindHandle <> INVALID_HANDLE_VALUE then
begin
b:=true;
while b do
begin
Applet.ProcessMessages; // ЧТОБ МАШИНУ НЕ ЗАВЕСИТЬ :-)
s:=FindData.cFileName;
if (s<>"..") and (s<>".") then
begin
List.Add(s);
ScanDir(StartDir+s+"\", List);
end;
b:=FindNextFile(FindHandle,FindData);
end;
end;
FindClose(FindHandle);
end;

procedure TForm1.Button1Click(Sender: PObj);
begin
ScanDir("C:\", ListBox1);
end;

← →
GandalfTheWhite (2003-04-10 10:34) [2]

Хотелось бы от себя заметить, что это offtopic.

Получение файлов из подпапок Найти похожие ветки