Как узнать размер файла?

← →
Barsky (2003-12-11 12:17) [0]

Как узнать размер файла не открывая его через assignfile() и без findfirst()?
Тоесть имеется ли функция f(filename)=filesize?

← →
Плохиш_ (2003-12-11 12:20) [1]

GetFileSize in RxLib ;-)

← →
Тимохов (2003-12-11 12:23) [2]

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/base/getfilesize.asp

← →
MBo © (2003-12-11 12:33) [3]

FindFirst

← →
Anatoly Podgoretsky © (2003-12-11 12:34) [4]

MBo © (11.12.03 12:33) [3]
Принципиально против.

← →
Романов Р.В. © (2003-12-11 12:48) [5]

Вчера написал
function GetFileSizeE(FName: string): Integer;
var
sr: TSearchRec;
begin
Result := 0;
if FindFirst(FName, faAnyFile, sr) = 0 then
Result := sr.Size;
FindClose(sr);
end;

← →
smu © (2003-12-11 14:04) [6]

> не открывая его через assignfile()

assignfile(f) не открывает файл а лишь привязывает его к переменной. А чем тебе не нравится
assignfile(f);
FileSize(f)

← →
smu © (2003-12-11 14:09) [7]

неточность .. открывать все-таки надо Reset(f,1); сори

товарищ Тимохов прав
CreateFile
потом
GetFileSize

GetFileAttributesEx еще, но там только FAT похоже

← →
me (2003-12-11 18:41) [10]

function GetFileSize(const FileName : string) : Int64;
var
Handle : THandle;
FindData : TWin32FindData;
begin
Handle := FindFirstFile(PChar(FileName), FindData);
if Handle <> INVALID_HANDLE_VALUE then begin
Windows.FindClose(Handle);
if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then
begin
Int64Rec(Result).Lo := FindData.nFileSizeLow;
Int64Rec(Result).Hi := FindData.nFileSizeHigh;
Exit;
end;
end;
Result := -1;
end;

Как узнать размер файла? Найти похожие ветки