Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Rekursive Dateisuche lässt Unterverzeichnisse aus

   
    by Ykcim, 30. Okt 2014
  Hallo Zusammen,
  
  vielen Dank für die zahlreiche Unterstützung!!!
  
  So klappt es jetzt:
  function listFiles(Pfad, FileName: string): TRows;
  var I: integer;
  begin
  filename:='*'+fileName+'*';
  setlength(Result,1,0);
• Forum: Programmieren allgemein

  AW: Rekursive Dateisuche lässt Unterverzeichnisse aus

   
    by Ykcim, 30. Okt 2014
  @Sir Rufo
  Jepp, die Fehlermeldung ist weg, aber ich das Ergebnis ist das gleiche - es wird nur die Datei in dem Hauptverzeichnis angezeigt...
  
  Ich weiß nicht ob es wichtig ist, aber der Pfad sieht so aus:
  \\172.30.44.120\Zeichnungen\
  Und dann gibt es halt Unterverzeichnisse
  \\172.30.44.120\Zeichnungen\A\
  \\172.30.44.120\Zeichnungen\Neu\
  
  Ich versuche gerade den Gedanken vom schönen...
• Forum: Programmieren allgemein

  AW: Rekursive Dateisuche lässt Unterverzeichnisse aus

   
    by Ykcim, 30. Okt 2014
  Hallo,
  
  erst mal vielen Dank für die schnellen Antworten!!!
  
  if (Rec.Attr and faDirectory = faDirectory)
  Ich habe es ausprobiert, aber leider kein Erfolg.
  faDirector=16
  Rec.Attr=48 Ich weiß beide Werte leider nicht zu interpretieren.
  
  if ( faDirectory in Rec.Attr )
• Forum: Programmieren allgemein

  Rekursive Dateisuche lässt Unterverzeichnisse aus

   
    by Ykcim, 30. Okt 2014
  Hallo Zusammen,
  
  mit diesem Code, den ich übernommen, nachvollzogen und angepasst habe, möchte ich alle Dateien, in denen ein Teilstring ("4711") vorkommt, in einem StringGrid mit dem jeweiligen Pfad ausgeben. Dabei sollen alle Unterverzeichnisse mit überprüft und die Dateien und Pfade ebenfalls ausgegeben werden.
  
  function FileSearches(const PathName, FileName : string; const InDir :...