jugedred.net::Blog

Delphi で任意のファイルのファイルサイズを取得します。FindFirst 関数を使って実現します。

var
  FRec: TSearchRec;
  FileName: string;
begin
  FileName := 'ここにファイルのパス';
  if FindFirst(FileName, faAnyFile, FRec) = 0 then
    // 戻り値が0なら成功
    result := FRec.Size;
  // 表示を3桁区切りにする。
  result := FormatFloat('0,', result); // 戻り値は String 型
end;

FRec.Size がファイルサイズになります。単位はバイト数単位です。最後に FormatFloat 関数を利用して表示を3桁区切りにしてみました。

トラックバックURL：http://jugedred.net/cgi-bin/mt/mt-tb-antispam.cgi/68

• スパム対策のため、トラックバックは承認後に公開します。
• 重複トラックバックは確認次第削除しますので報告は不要です。

• アカウントハックコメント対策のため、コメントは承認後に公開されます。
• 名前とメールアドレスとURLは必須ではありません。
• メールアドレスは管理人にのみ公開されます。
• 名前を空白にすると「名無しさん」になります。
• HTMLタグは利用できません。