Rekursiv Suchen

[HolgerX]

Hmm..

Da sind mehrere Fehler drinnen..

Und da ich nicht jeden einzelnd erklären will, hier mal eine Funktion, welche Dir alle Dateien eines Verzeichnisses auflistet:

Delphi-Quellcode:

procedure GetFileList(APath : string;AList : TStrings;WithSubPath : boolean);
var
  sr: TSearchRec;
  tmpPath : string;
begin
  tmpPath := IncludeTrailingPathDelimiter(APath);
  if FindFirst(tmpPath+'*.*', faAnyFile, sr) = 0 then begin
    repeat
      if (sr.Attr or faDirectory) = sr.Attr then begin
        if WithSubPath then begin
          if (sr.Name[1] <> '.') then
            GetFileList(tmpPath+sr.Name,AList,WithSubPath);
        end;
      end else begin
        AList.Add(tmpPath + sr.Name);
      end;
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
end;

Danach gehst Du die Liste durch und versucht alle Dateien mit .pdf Erweiterung zu konvertieren.