Собственно сабж.
Пробовал сделать так:
function GetFileSize(const FileName: String): Integer;
var
 F: File of Byte;
begin
 try
   AssignFile(F,FileName);
   Reset(F);
   Result:=FileSize(F);
   CloseFile(F);
 except
   Result:=0;
 end;
end;

получаю I/O 32.

Перед Reset вставь строчку
  FileMode:=fmOpenRead;

> leonidus  (21.04.2008 17:20:00)  [0]

Воспользуй FindFirstFile

большое спасибо