Размер файла, не открывая.

← →
Zn (2003-02-26 17:08) [0]

Подскажите, пожалуйста, ссылочку, где можно найти функции для работы с файлами для небольшого файлового менеджера. Нужна функция, возвращающая размер файла и функция, возвращающая размер файлов каталога.

← →
Clickmaker © (2003-02-26 17:15) [1]

FindFirst/FindNext

← →
Zn (2003-02-26 17:34) [2]

> Clickmaker © (26.02.03 17:15)

Остроумно...

← →
Zn (2003-02-26 17:50) [3]

Да неужели ж VB круче Дельфи? Даже там есть FileLen(filename)...

← →
blackman © (2003-02-26 18:13) [4]

Ничего смешного. Правильно написано.
fi: TSHFileInfo;
....
ShGetFileInfo(PChar("*" + ext), 0, fi, SizeOf(fi),
SHGFI_SMALLICON or SHGFI_SYSICONINDEX or SHGFI_TYPENAME)
...

Честно говоря, не пытался тебя рассмешить...
Если внимательно посмотреть хелп по FindFirst и структуре TSearchRec, то можно найти там поле Size, а если сказать так

var SR: TSearchRec;
FileSize: integer;
if (FindFirst("c:\folder\file.doc", faAnyFile, SR) = 0) then begin
FileSize := SR.Size;
FindClose(SR);
end;

то можно найти размер файла, не открывая его

PS. Подозреваю, что FileLen в VB делает тоже самое, только это скрыто от юзера

← →
Zn (2003-02-26 18:20) [6]

Вот теперь понятно, спасибо!

Размер файла, не открывая. Найти похожие ветки