FindFirstFile: Wie suche ich auch in Unterordnern?

[Luckie]

Und jetzt das ganze noch ohne TStrings und somit ohne die Unit Classes.pas:

Delphi-Quellcode:

type
  TStringDynArray = array of string;

var
  FileCount: Cardinal = 0;
  Files   : TStringDynArray = nil;

function FindAllFiles(RootFolder: string; Mask: string = '*.*'; Recurse: Boolean
  = True): TStringDynArray;
var
  wfd          : TWin32FindData;
  hFile        : THandle;
begin
  if AnsiLastChar(RootFolder)^ <> '\' then
    RootFolder := RootFolder + '\';
  if Recurse then
  begin
    hFile := FindFirstFile(PChar(RootFolder + '*.*'), wfd);
    if hFile <> INVALID_HANDLE_VALUE then
    try
      repeat
        if wfd.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY =
          FILE_ATTRIBUTE_DIRECTORY then
          if (string(wfd.cFileName) <> '.') and (string(wfd.cFileName) <> '..')
            then
            FindAllFiles(RootFolder + wfd.cFileName, Mask, Recurse);
      until FindNextFile(hFile, wfd) = False;
    finally
      windows.FindClose(hFile);
    end;
  end;
  hFile := FindFirstFile(PChar(RootFolder + '*.*'), wfd);
  if hFile <> INVALID_HANDLE_VALUE then
  try
    repeat
      if wfd.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY <>
        FILE_ATTRIBUTE_DIRECTORY then
      begin
        FileCount := length(Files)+1;
        Setlength(Files, FileCount);
        Files[FileCount - 1] := RootFolder + String(wfd.cFileName);
      end;
    until FindNextFile(hFile, wfd) = False;
  finally
    Windows.FindClose(hFile);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i            : Integer;
begin
  Files := nil;
  FindAllFiles('d:\Dokumente', '*.*', True);
  for i := 0 to length(Files) - 1 do
  begin
    Listbox1.Items.Add(Files[i]);
  end;
end;

[Kernel32.DLL]

Die Prozedur kommt ja wie gerufen...

[Pseudemys Nelsoni]

perfekt luckie, danke :???:

[EWeiss]

Zitat:

Zitat von Luckie

Und jetzt das ganze noch ohne TStrings und somit ohne die Unit Classes.pas:

Delphi-Quellcode:

type
  TStringDynArray = array of string;

var
  FileCount: Cardinal = 0;
  Files   : TStringDynArray = nil;

function FindAllFiles(RootFolder: string; Mask: string = '*.*'; Recurse: Boolean
  = True): TStringDynArray;
var
  wfd          : TWin32FindData;
  hFile        : THandle;
begin
  if AnsiLastChar(RootFolder)^ <> '\' then
    RootFolder := RootFolder + '\';
  if Recurse then
  begin
    hFile := FindFirstFile(PChar(RootFolder + '*.*'), wfd);
    if hFile <> INVALID_HANDLE_VALUE then
    try
      repeat
        if wfd.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY =
          FILE_ATTRIBUTE_DIRECTORY then
          if (string(wfd.cFileName) <> '.') and (string(wfd.cFileName) <> '..')
            then
            FindAllFiles(RootFolder + wfd.cFileName, Mask, Recurse);
      until FindNextFile(hFile, wfd) = False;
    finally
      windows.FindClose(hFile);
    end;
  end;
  hFile := FindFirstFile(PChar(RootFolder + '*.*'), wfd);
  if hFile <> INVALID_HANDLE_VALUE then
  try
    repeat
      if wfd.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY <>
        FILE_ATTRIBUTE_DIRECTORY then
      begin
        FileCount := length(Files)+1;
        Setlength(Files, FileCount);
        Files[FileCount - 1] := RootFolder + String(wfd.cFileName);
      end;
    until FindNextFile(hFile, wfd) = False;
  finally
    Windows.FindClose(hFile);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i            : Integer;
begin
  Files := nil;
  FindAllFiles('d:\Dokumente', '*.*', True);
  for i := 0 to length(Files) - 1 do
  begin
    Listbox1.Items.Add(Files[i]);
  end;
end;

Kann es sein das hier was fehlt ?
Oder welchen sinn macht es das Extension (Mask) zu übergeben ?
Ich will schon alle Dateien addieren aber nur die welche dem Extension entsprechen..

Denke dann wäre es so richtig Oder ?

Delphi-Quellcode:

  hFile := FindFirstFile(PChar(RootFolder + '*.*'), wfd); 
  if hFile <> INVALID_HANDLE_VALUE then
  try 
    repeat 
      if wfd.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY <> 
        FILE_ATTRIBUTE_DIRECTORY then 
      begin 
        if ExtractFileExt(String(wfd.cFileName)) = Mask then
        begin
          FileCount := length(Files)+1;
          Setlength(Files, FileCount);
          Files[FileCount - 1] := RootFolder + String(wfd.cFileName);
        end;
      end;
    until FindNextFile(hFile, wfd) = False;
  finally 
    Windows.FindClose(hFile); 
  end;

gruss Emil

[SirThornberry]

Das ist so damit der Fragesteller auch noch etwas machen muss und nicht einfach nur copy & paste machen kann :)

[EWeiss]

Zitat:

Zitat von SirThornberry

Das ist so damit der Fragesteller auch noch etwas machen muss und nicht einfach nur copy & paste machen kann :)

Hab nix copie & Paste
Siehe Berichtigung meinerseits.

Denke auch wenn man schon code bereitstellt dann sollte er auch funktionieren ;)
kann es sein das einige Leute hier immer unfreundlicher werden ?

gruss Emil

[Luckie]

Mein Code funktioniert immer - nur eben manchmal nicht so, wie er soll. :mrgreen:

[EWeiss]

Zitat:

Zitat von Luckie

Mein Code funktioniert immer - nur eben manchmal nicht so, wie er soll. :mrgreen:

Nö ;)
Was macht es für einen sinn ein Extension innerhalb der Funktion zu übergeben wenn es nicht ausgewertet wird.
Ansonsten ja er funktioniert. :)

War auch nicht bös von mir gemeint .. hab mich halt nur gewundert.

gruss Emil