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

← →
ЮРИЙ_К © (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]

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

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

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

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