Форум: "Основная";
Текущий архив: 2002.11.04;
Скачать: [xml.tar.bz2];
ВнизПомогите узнать размер любого файла Найти похожие ветки
← →
Oleg_G (2002-10-23 20:05) [0]Люди!!!!!!
Я понимаю, что может это звучит глупо, но как мне узнать размер любого файла в байтах, и присвоить это значение в переменную?
← →
LongIsland (2002-10-23 20:16) [1]FileSize?
← →
Kotka (2002-10-23 23:28) [2]По-моему так:
var f:file of byte;
size:int64;
begin
assign(f,"FileName");
reset(f);
size:=filesize(f);
end.
← →
Mr.D! (2002-10-24 01:08) [3]
Функция FileSize( var Vf ): Integer;
Модуль: System
Описание
Функция возвращает размер файла, связанного с файловой переменной Vf в байтах. Для файлов типа Record функция возвращает количество записей. Если файл не содержит данных, то функция возвращает 0. Файл должен быть обязательно открыт. Данная функция не применима к текстовым файлам.
Пример
В данном примере определяется кол-во записей в файле и если файл содержит больше одной записи, то файл усекается и остается только первая запись.
var
Vf: File of MyRecord;
begin
AssignFile(Vf, "MyFile.zzz");
Reset(Vf);
if FileSize(Vf)>1 then
begin
Seek(Vf, 1);
Truncate(Vf);
end;
CloseFile(Vf);
end;
← →
Asderg (2002-10-24 10:21) [4]
int FSize;
void SetSize(const AnsiString &Fullname)
{
// using WinAPI
if (FileName.Length()==0) {Size=0; return;}
HANDLE file = CreateFile(Fullname.c_str(), GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
// may be 2 DWORD (4 Bytes) ??
FSize = GetFileSize(file, NULL);
CloseHandle(file);
}
← →
Oleg_G (2002-10-24 22:27) [5]Спасибо всем кто откликнулся.
Я уже сам докопался, как и все гениальное это сделать тоже просто
Спасибо.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.04;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c