Форум: "Потрепаться";
Текущий архив: 2003.04.28;
Скачать: [xml.tar.bz2];
ВнизПолучение файлов из подпапок Найти похожие ветки
← →
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 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.04.28;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c