Форум: "Основная";
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];

Вниз

Как получить список файлов в директории включая поддиректории?   Найти похожие ветки 

← →
panov   (2002-01-30 14:03) [5]

procedure ScanDir(aPath: String; var aList: TStringList);
var
SR: TSearchRec;
tPath: String;
begin
tPath := IncludeTrailingBackSlash(aPath);
if FindFirst(tPath+"*.*",faAnyFile,SR) = 0 then
begin
try
repeat
if SR.Name[1]="." then Continue;
case (SR.Attr and faDirectory) of
faDirectory: ScanDir(tPath+SR.Name,aList);
else aList.Add(tPath+SR.Name);
end;
until FindNext(SR)<>0;
finally
sysutils.FindClose(SR);
end;
end;
end;

---

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

Форум: "Основная";
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.004 c