[코드] Delphi는 파일과 폴더 크기를 가져옵니다(2G 이상의 큰 파일 지원).

함수 반환 값 유형은 Int64이며 파일이 존재하면 파일 크기를 반환하고 그렇지 않으면 0을 반환합니다.

function FileSize(FileName: string): Int64;

var

  sr: TSearchRec;

begin

  if FindFirst(FileName, faAnyFile, sr) = 0 then

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

  else

    Result := 0;



  FindClose(sr);

end;

폴더 크기를 가져오는 함수는 다음과 같습니다.

function FolderSize(FolderName: string): Int64;

var

  sr: TSearchRec;

begin

  Result := 0;



  if RightStr(FolderName, 1) <> '\' then FolderName := FolderName + '\';



  if FindFirst(FolderName + '*.* ', faAnyFile, sr) = 0 then

    repeat

      if (sr.Name <> '.') and (sr.Name <> '..') then begin

        Result := Result + FileSize(FolderName + sr.Name);



        if (sr.Attr and faDirectory) <> 0 then

          Result := Result + FolderSize(FolderName + sr.Name + '\');

      end;

    until FindNext(sr) <> 0;



  FindClose(sr);

end;

참조:

File Size - Get the Size of a File in Bytes using Delphi http://delphi.about.com/od/delphitips2008/qt/filesize.htm

Technorati 태그:
Delphi ,
FindFirst ,
nFileSizeHigh