Форум: "Основная";
Текущий архив: 2003.09.08;
Скачать: [xml.tar.bz2];

Вниз

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;

---

← →
han_malign   (2003-08-26 10:10) [4]

насколько я понимаю должно быть что-то вроде этого:
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;

---

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

Форум: "Основная";
Текущий архив: 2003.09.08;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.008 c