파일크기 구하기

파일크기 구하기

 

// 파일크기 반환. 파일이 없으면 -1

function GetFileSize(FilePath: String): Int64;

var SR: TSearchRec;

begin

if FindFirst(FilePath, faAnyFile, SR)=0 then

Result:=Int64(SR.FindData.nFileSizeHigh) shl Int64(32)+Int64(SR.FindData.nFileSizeLow)

else

Result:=-1;

FindClose(SR);

end;