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

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

← →
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.

---

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

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



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