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

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

← →
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:
Учту и я...

---

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

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



Память: 0.46 MB
Время: 0.016 c