Question

delphi 如何获取文件的大小和类型

当前目录下 有两个文件A.rar(12M) 和 b.txt(900k)， 如何获取分别获取两个文件的这四个值：12、 MB 、1022 、 KB
900 kb

Answer 1

示例代码如下：

1. 首先，uses 添加 IdGlobalProtocols。

   2.  

function TForm1.GetFileSizeStr(fName:string):string;
var nSize: Integer;
begin
  nSize := FileSizeByName(fName);
  if nSize > 1073741824 then
    Result := FormatFloat('###,##0.00G', nSize / 1073741824)
  else if nSize > 1048576 then
    Result := FormatFloat('###,##0.00M', nSize / 1048576)
  else if nSize > 1024 then
    Result := FormatFloat('###,##00K', nSize / 1024)
  else
    Result := FormatFloat('###,#0B', nSize);
  if Length(Result) > 2 then
    if Result[1] = '0' then
      Delete(Result, 1, 1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('文件大小是： ' + GetFileSizeStr('d:\table.mdb'));
end;

示例截图：

Answer 2

1、获取大小请参考这个，http://zhidao.baidu.com/link?url=HQG9G1C5G9gN-TaOHp3OyGnvGROIMBC2ghk06ZAyU7mjNJ5-VVNAzJQJBusPym-GHoDwBvURcUCz3kXxxprvcq

2、所有获得的值都是字节值，要转换为kb，mb单位，需要自己除以1024就是kb，kb再除以1024就是mb
你可以这样
if(filesize>1024)
int kbval = filesize/1024;//单位是kb的值
if(kbval>1024)
int mbval = kbval /1024;//单位是mb