Select filefolder

Jeg fandt ud af det med at selecte et dir ... nu mangler jeg bare det med rende den igennem og liste alle subdirs + size af disse.. eks output;

C:\Mappe\Noget\Hehe - 20.304MB

Til den første kan du bruge komponenten ShellTreeView på Samples-fanen. Træk den ned på din form. Sæt dens onChange handler til følgende kode:
Edit1.Text := ShellTreeView1.Path;

Til andet delspørgsmål kan du benytte
FindFirst og FindNext og FindClose til at gennemgå din mappe:
var
sr: TSearchRec;
FilAttributter: Integer;

Filattributter := faDirectory;

if FindFirst(edit1.text, Filattributter, sr) = 0 then
begin
  repeat

    // gør hvad du vil med mapperne.

  until FindNext(sr) <> 0;
  FindClose(sr);
end;

FindFirst osv. ligger i unit SysUtils.

Den tager 1 mappe af gangen - lav evt. et rekursivt kald !

Nå.. så er den med dirs fixed.. så mangler vi hvordan man finder dir-size af subdirs

Du kan ikke finde størelsen af en folder. Du er nødtil selv at tælle sammen.

Jens B

Fandt ud af det.. men hvordan rounder man en integer til 2 chars efter komma? altså så 12,1212123123123 bliver til 12,12

function JBRoundFloat(Value: Extended; const NumberOfDecimals: Byte): Extended;
var
  Factor: Extended;
begin
  Factor := IntPower(10, NumberOfDecimals);

  if Frac(Value * Factor) = 0.5 then
    Value := Value + 1 / (IntPower(10, NumberOfDecimals + 1));

  Result := StrToFloat(Format('%.*f', [CurrencyDecimals, Value]));
end;

Sådan tæller man en folder sammen, incl. sub-foldere:

uses
    sysUtils;


function getFolderSize(pn: string): cardinal;
var
    sr:    TsearchRec;
    attr:  integer;
begin
    result:=0;
    attr:=faAnyFile;
    if FindFirst(pn+'\*.*',attr,sr)=0 then begin
        repeat
            if (sr.Attr and faDirectory) = sr.Attr then begin
                if (sr.Name<>'.') and (sr.Name<>'..') then
                    result:=result+getFolderSize(pn+'\'+sr.Name);
            end else
                if (sr.Attr and attr) = sr.Attr then
                    result:=result+sr.Size;
        until FindNext(sr)<>0;
        FindClose(sr);
    end;
end; //get folder size

Jeg har ikke testet den med hidden files mv, men mon ikke faAnyFile osse er incl. hiddens og system filer. Ellers er det let at sætte på.

--nop

eksempel på brug:
x:=getFolderSize('c:\data');

borrisholt>> skal det ikke være: if Frac(Value * Factor) >= 0.5 then // >= istedet for =
og hvorfor ikke: roundTo(value,-2) fra math unit'en
--nop

PGA, forskellige afrundings regler.

hvilke?
Og det skal da være >=.

Jow