1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

function dirToGlobalLists(Verzeichnis:string):longint;
var SR      : TSearchRec;
    Groesse : longint;
begin
  Groesse:=0;
  if Verzeichnis[length(Verzeichnis)]<>'\' then
    Verzeichnis:=Verzeichnis+'\';
  if FindFirst(Verzeichnis+'*.*',$3F,SR)=0 then begin
    repeat
      if ((SR.Attr and faDirectory)>0) and (SR.Name<>'.') and (SR.Name<>'..') then
        Groesse:=Groesse+dirToGlobalLists(Verzeichnis+SR.Name)
      else
        Groesse:=Groesse+SR.Size;
      if (SR.Name<>'.') and (SR.Name<>'..')  then begin
          if isPicture(SR.Name) then begin
            FormDirectorySelect.MemoLog.Lines.Add('BILD: ' + SR.Name);
            DirsAndFiles.Add(Verzeichnis+SR.Name);
            pictureCount := pictureCount + 1;
          end else begin
          FormDirectorySelect.MemoLog.Lines.Add('KEIN BILD: ' + SR.Name);
            if directoryexists(SR.Name) then
              DirsOnly.Add(SR.Name);
          end;
        end;
    until FindNext(SR)<>0;
    FindClose(SR);
  end;

  FormDirectorySelect.ListBoxAllFiles.Items.Add(inttostr(DirsAndFiles.Count) + 'Bilder');
  FormDirectorySelect.ListBoxAllFiles.Items.AddStrings(DirsAndFiles);
  FormDirectorySelect.ListBoxDirectoriesOnly.Items.Add(inttostr(DirsOnly.Count) + 'Verzeichnisse');
  FormDirectorySelect.ListBoxDirectoriesOnly.Items.AddStrings(DirsOnly);
//   DirsAndFiles.Assign(FormDirectorySelect.ListBoxAllFiles.Items);
//  DirsAndFiles.Assign(FormDirectorySelect.ListBoxAllFiles);




  //  FormDirectorySelect.ListBoxAllFiles.Assign(DirsAndFiles);
  Result:=Groesse;
end;					

1:
2:
3:
4:

if ((SR.Attr and faDirectory)>0) and (SR.Name<>'.') and (SR.Name<>'..') then
  Groesse:=Groesse+dirToGlobalLists(Verzeichnis+SR.Name)
else
  Groesse:=Groesse+SR.Size;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure GetDir(Path: String; List: TStrings);
var Found: Integer;
var SearchRec: TSearchrec;
begin
  if Path[Length(Path)] <> '\' then Path := Path + '\';
  Found := FindFirst(Path+'*.*', faAnyFile, SearchRec);
  while Found = 0 do begin
    if (Searchrec.Name <> '.') and (Searchrec.Name <> '..') then
      begin
        List.Add(Path+SearchRec.Name);
        if DirectoryExists(Path+SearchRec.Name) then
          GetDir(Path+SearchRec.Name, List);
      end;
    Found := FindNext(SearchRec);
  end;
  FindClose(SearchRec);
end;