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

Как узнать что каталог пустой или в нем что-то есть ?   Найти похожие ветки 

← →
ЮРИЙ_К ©   (2003-08-22 16:30) [0]

Сабж, собсна...

---

← →
Reindeer Moss Eater ©   (2003-08-22 16:32) [1]

Поищи файлы по маске *.*

---

← →
ЮРИЙ_К ©   (2003-08-22 16:41) [2]

Так вот чегость пробую сделать так:

procedure TMainFrm.Timer1Timer(Sender: TObject);
var
sr : TSearchRec;
begin
if FindFirst("S:\Dir1\Dir2\Dir3\" + "*.*", faAnyFile, sr) = 0 then
Label1.Caption := "Файл для отправки появился !"
else
Label1.Caption := "Нечего отправлять.";
end;
// FindClose(sr); <-- Это обязательно ???
end;

В каталоге файлов нет, а FindFirst = 0

8-(, в чем грабли ?

---

← →
MBo ©   (2003-08-22 16:44) [3]

. и .. отсекай

---

← →
VAleksey ©   (2003-08-22 16:49) [4]

Обязательно.

---

← →
Camus ©   (2003-08-22 17:28) [5]

Обязательно, но только в том случае, когда FindFirst вернула ноль.

if FindFirst(...) = 0 then
try
...
finally
FindClose(...)
end
else
...

---

← →
Anatoly Podgoretsky ©   (2003-08-22 22:40) [6]

MBo © (22.08.03 16:44) [3]
Зачем, проще if FindFirst(...,faAnyFile - faDirectory

---

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

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



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