узнать имя файлов

← →
baracuda (2003-05-28 18:11) [0]

Здравствуйте! Как можно решить следующую проблемку. Есть каталог, в который попадают файлы. Нужно чтобы моя программа не зная имен этих файлов обрабатывала каталог и при наличии файлов читала их. Как это можно реализовать? Как перебирать имена файлов?

← →
Skier (2003-05-28 18:12) [1]

FAQ you.

← →
baracuda (2003-05-28 18:50) [2]

Это все что ты можешь сказать?

← →
jack128 (2003-05-28 18:52) [3]

FindFirst/FindNext/FindClose + F1

зы : но FAQ по моему проще...

← →
Александр из Минска (2003-05-28 18:59) [4]

Я как-то делал код... Но он удаляет все файла и каталоги в том, который ты указал в скобках, а потом и этот каталог киляет... Ты удаление замени на свою обработку...

procedure DelDir(dir : String);
var
sr : TSearchRec;
Attrs : Integer;
f : Boolean;
begin
f := False;
Attrs := 0;
Attrs := Attrs + faAnyFile;
if FindFirst(dir+"/*.*", Attrs, sr) = 0 then
begin
if sr.Name = "." then
begin
FindNext(sr);
FindNext(sr);
end;
repeat
if sr.Attr <> faDirectory then
begin
DeleteFile(dir+"/"+sr.Name);
end
else
begin
if sr.Name <> ".." then
begin
DelDir(dir+"/"+sr.Name);
end
else
begin
f := True;
RmDir(dir);
end;
end;
until FindNext(sr) <> 0;
FindClose(sr);
if not f then RmDir(dir);
end
else
begin
FindClose(sr);
if not f then RmDir(dir);
end;
end;

← →
jack128 (2003-05-28 19:10) [5]

> if sr.Name = "." then
> begin
> FindNext(sr);
> FindNext(sr);
> end;

Не думаю, что стоит закладываться на то, что ПОСЛЕ текущего(.) каталога ОБЕЗАТЕЛЬНО будет найден родительский(..)
Обычно делают так
if sr.Name = "." or sr.Name = ".." then Continue;

← →
Александр из Минска (2003-05-28 19:13) [6]

jack128:
Учту и я...

узнать имя файлов Найти похожие ветки