Solved

What's the best way to know the size of a directory and a file?

Posted on 1998-09-04
6
164 Views
Last Modified: 2010-04-04
What's the best way to know the size of a directory and a file?
I want to know the size of a directory or the size of the files which are in this directory.
What's the best way to determine the size ?
By using :
Filesize
TFileStream...
0
Comment
Question by:nk51
  • 3
  • 2
6 Comments
 

Author Comment

by:nk51
ID: 1338623
I'm using Delphi 3.0
0
 
LVL 2

Expert Comment

by:freter
ID: 1338624
You'll need to use the FindFirst / FindNext function set to grab all the files in a dir. These two functions return a record which contains the file size information (and many other vital information).

rgds, Freter
0
 
LVL 5

Accepted Solution

by:
inter earned 50 total points
ID: 1338625
Hi,
You can do it with the following recursive procedure -I have written the code-

function SizeOfDir(Path : String):integer;
var
  SearchRec : TSearchRec;
  res       : integer;
begin
  Result := 0;
  res := FindFirst(Path+'\*.*', faAnyFile, SearchRec);
  while res = 0 do
  begin
      if (SearchRec.Name = '.') or (SearchRec.Name = '..') then
      begin
        res := FindNext(SearchRec);
        continue;
      end;
      if SearchRec.Attr and faDirectory > 0 then
         Inc(Result, SizeOfDir(Path+'\'+SearchRec.Name))
      else Inc(Result, SearchRec.Size);
      res := FindNext(SearchRec);
      Application.ProcessMessages;
  end;
end;

procedure TDemoForm.Button1Click(Sender: TObject);
begin
  DirSize := 0;
  Caption := IntToStr(SizeOfDir('c:\winnt')); //do not add \ to the end of dir name!!!
end;

Determining size of file is much easiser for example

function SizeOfFileX(S : string):integer;
var
  T : TFileStream;
begin
  Result := 0;
  T := TFileStream.Create(S, fmOpenRead);
  try
     Result := T.Size;
  finally
    T.Free;
  end;
end;

Regards, Igor
0
Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 

Author Comment

by:nk51
ID: 1338626
Thanks
0
 
LVL 5

Expert Comment

by:inter
ID: 1338627
Soryy,
ignore the DirSize := 0 line above
0
 

Author Comment

by:nk51
ID: 1338628
ok
0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
how to center only a line in richedit? 4 61
how to resize animated Gif image in delphi ? 1 35
How to build JSON File in Delphi 6 3 45
Dev express lookupcombo 3 35
This article explains how to create forms/units independent of other forms/units object names in a delphi project. Have you ever created a form for user input in a Delphi project and then had the need to have that same form in a other Delphi proj…
Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
Email security requires an ever evolving service that stays up to date with counter-evolving threats. The Email Laundry perform Research and Development to ensure their email security service evolves faster than cyber criminals. We apply our Threat…

828 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question