请问如何知道一个目录下所有文件的文件大小?最好有代码,谢谢.

Question

如题.

Answer 1

var
  SearchRec:TSearchRec;
  FileList:TStrings;
  FileSize:integer;
  allFileSize:integer;
begin
  FileList:=TStringList.Create;
  if FindFirst(Dir+'\*.*',faAnyFile,SearchRec)=0 then
  begin
    FileList.Add(SearchRec.Name);//文件名
    FileSize:=SearchRec.size;
    AllFileSize:=AllFileSize+FileSize;
....//输出信息
    while FindNext(SearchRec)=0 do
    begin  
       FileList.Add(SearchRec.Name );
       FileSize:=SerchRec.size;
       AllFileSize:=AllFileSize+FileSize;
....//输出信息;
    end;
    FindClose(SearchRec);
  end;