FileSize

← →
AlexLP © (2003-08-26 09:55) [0]

Мастера.
Подскажите как можно проверять файл по его размеру.

Моя программа архивирует файлы из каталога, но бывают случаи, когда размер файла 0 байт (в процессе создания). Как написать условие Если файл(размер) < или = 0 тогда

if FindFirst(StartDir+Mask, faAnyFile, SearchRec) = 0 then
begin
repeat
Application.ProcessMessages;
if (SearchRec.Size < 0 ) then
begin
AbZipper1.FileName := "file.zip";
begin
AbZipper1.AddFiles(StartDir + SearchRec.Name,0)
end;
end;
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);

← →
Palladin © (2003-08-26 09:59) [1]

размер файла не может быть меньше нуля...

← →
[lamer]Barmaglot © (2003-08-26 10:00) [2]

В чем проблема? Ты же все написал... У SearchRec есть запись о размере файла вот и проверяй. Если неподходит используй GetFileSize...

← →
han_malign © (2003-08-26 10:04) [3]

интересный код - вызываем ProcessMessages, столько раз, сколько файлов в каталоге... Вот только вопрос - зачем?
И что означает вот это
begin AbZipper1.FileName := "file.zip"; begin AbZipper1.AddFiles(StartDir + SearchRec.Name,0) end; end;

насколько я понимаю должно быть что-то вроде этого:
if FindFirst(StartDir+Mask, faAnyFile, SearchRec) = 0 then begin AbZipper1.FileName := "file.zip"; repeat if((SearchRec.Size > 0)and(SearchRec.Name[1]<>".")) then AbZipper1.AddFiles(StartDir + SearchRec.Name,0); until FindNext(SearchRec) <> 0; FindClose(SearchRec); end;

FileSize Найти похожие ветки