Текущий архив: 2003.09.11;
Скачать: 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 вся ветка
Текущий архив: 2003.09.11;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.017 c
