Работа с файлами

← →
Zeus (2004-12-27 11:27) [0]

Мастера, подскажите как определить размер файла в байтах, его полный путь известен. Делаю FileSize(), он неправильно выдает. А еще тогда как получить количество файлов в папке?

← →
Fay © (2004-12-27 11:29) [1]

FindFirstFile/FindNextFile/Windows.FindClose

← →
Bork (2004-12-27 11:30) [2]

>как получить количество файлов в папке

Function GetFileCount(Dir:string):integer;
var fs:TSearchRec;
begin
Result:=0;
if FindFirst(Dir+"\*.*",faAnyFile-faDirectory-faVolumeID, fs)=0 then
repeat
inc(Result);
until FindNext(fs)<>0;
FindClose(fs);
end;

← →
Алхимик © (2004-12-27 11:31) [3]

> Делаю FileSize(), он неправильно выдает.

Откуда такая уверенность?

> А еще тогда как получить количество файлов в папке?

FindFirst, FindNext

← →
Fay © (2004-12-27 11:33) [4]

2 Bork (27.12.04 11:30) [2]
>> ,faAnyFile-faDirectory-faVolumeID
Это зачем?

← →
Bork (2004-12-27 11:36) [5]

>подскажите как определить размер файла в байтах

function getfilesize(filename:string):int64; var ts:TSearchRec; begin if FindFirst(FileName, faAnyFile, ts)=0 then begin result:=ts.FindData.nFileSizeHigh*4294967296+ts.FindData.nFileSizeLow; Findclose(ts); end; end;

← →
Bork (2004-12-27 11:39) [6]

>faAnyFile-faDirectory-faVolumeID
>Это зачем?

можно просто faAnyFile

← →
Poirot © (2004-12-27 11:40) [7]

[4]
Ну просто not faDirectory не катит:)))

на самом деле FileSize правильно выдает, это вы не понимаете результат. ;о))

оно выдает не размер, а количетво записей... разница(!) и если размер записи неопределен, и файл нетипизирован, то по умолчанию ее размер 128байт.

>> result:=ts.FindData.nFileSizeHigh*4294967296+ts.FindData.nFileSizeLow;

Жестоко 8)

Работа с файлами Найти похожие ветки