delphi - scan folder ( og sub folder) for filer - Udvikleren.dk

Tags: delphi

Bruger #6429 @ 29.10.04 20:43

Uses FileCtrl;

procedure TForm1.Button1Click(Sender: TObject);
var
folder: String;
begin
folder := '';

SelectDirectory('Vælg en mappe', '', folder);
If folder <> '' Then
begin
{
scan folder og ALLE sub-folder for filer og tilføj dem til en listbox.
}

end Else begin
ShowMessage('Du valgte ikke en mappe');
end;
end;

5 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 4 karma

Sorter efter stemmer Sorter efter dato

Bruger #6744 @ 02.11.04 12:49

Du kan f.eks gøre sådan her:

Kode

procedure TForm1.Button1Click(Sender: TObject);
var
  Folder: String;

  procedure ListDir(Path: String);
  var
    Sr: TSearchRec;
  begin
    if FindFirst(Path + '\\*.*', faAnyFile, Sr) = 0 then
    begin
      repeat
        if (sr.Name <> '.') and (sr.Name <> '..') then
        begin
          if sr.Attr = faDirectory then
            ListDir(Path + '\\' + Sr.Name)
          else
            ListBox1.AddItem(Sr.Name, nil);
        end;
      until FindNext(Sr) <> 0;
      FindClose(Sr);
    end;
  end;

begin
  Folder := '';
  SelectDirectory('Vælg en mappe', '', Folder);
  if Folder <> '' then
  begin
    ListBox1.Clear;
    ListDir(Folder);
  end else
    ShowMessage('Du valgte ikke en mappe');
end;

mvh
HSV

Bruger #6429 @ 02.11.04 17:54

ja men den tilføjer ikke sub-folders.... og den tilføjer også navne på mapperne.

den skal ikke tilføje mapper, men alle filer i mappen og i alle sub.mapper

Bruger #6744 @ 09.11.04 13:44

Nej - den tilføjer ikke mappenavne
Jo - den tilføjer alle filer i mappen og undermapper

mvh
HSV

[Redigeret d. 09/11-04 13:45:39 af HSV]

Bruger #6429 @ 09.11.04 20:28

ja det virker hehe min fejl

virker bare ikke hvis mappen er "dokumenter"

Bruger #6744 @ 11.11.04 12:21

Ja, du har ret - der er et mindre problem med skjulte folders

Kode

procedure TForm1.Button1Click(Sender: TObject);
var
  Folder: String;

  procedure ListDir(Path: String);
  var
    Sr: TSearchRec;
  begin
    if FindFirst(Path + '\\*.*', faAnyFile and not faHidden, Sr) = 0 then
    begin
      repeat
        if (sr.Name <> '.') and (sr.Name <> '..') then
        begin
          if sr.Attr and faDirectory <> 0 then
            ListDir(Path + '\\' + Sr.Name)
          else
            ListBox1.AddItem(Sr.Name, nil);
        end;
      until FindNext(Sr) <> 0;
      FindClose(Sr);
    end;
  end;

begin
  Folder := '';
  SelectDirectory('Vælg en mappe', '', Folder);
  if Folder <> '' then
  begin
    ListBox1.Clear;
    ListDir(Folder);
  end else
    ShowMessage('Du valgte ikke en mappe');
end;

ændringen er "faAnyFile and not faHidden", dvs. skjulte filer og folders medtages ikke, samt "sr.Attr and faDirectory <> 0", hvilket medfører at ALLE folders (- hidden) nu gennemløbes.

mvh
hsv

scan folder ( og sub folder) for filer

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler