Problem beim Auslesen eines Ordners unter Win98

[Helmi]

Hallo,

ich will unter Win98 alle Dateien eines Ordners auslesen und diese in einen String schreiben

ich hab mir dafür eine Function geschrieben

Code:

function GiveAllDirFiles(Directory: String): String;
var
  SearchRec: TSearchRec;

begin
  Result    := '';

  Directory := IncludeTrailingPathDelimiter(Directory);

  if (FindFirst(Directory + '*.*', faAnyFile, SearchRec) = 0) then
    repeat
      If FileExists(SearchRec.Name) then
        Result := Result + SearchRec.Name + '|';
    until FindNext(SearchRec) <> 0;

  FindClose(SearchRec);
end;

Dieses Function funktioniert unter WinXP ohne Probleme - nur nicht unter Win98

Weiss jemand vielleicht warum und was ich anders machen könnte?

mfg
Helmi

[Christian Seehase]

Moin Helmi,

Du müsstest bei

Delphi-Quellcode:

If FileExists(SearchRec.Name) then

noch das Directory davorschreiben, da SearchRec.Name nur den Namen der Datei enthält, und FileExists dann im aktuellen Verzeichnis (Arbeitsverzeichnis) sucht.
Dass es unter XP funktioniert hat muss Zufall gewesen sein.

Ausserdem macht es nicht wirklich Sinn hier mit FileExists zu arbeiten, da sicher ist, dass SearchRec.Name eine Datei oder Verzeichnisnamen enthält. Mit Resourcenschutzblock könnte das so aussehen.

Delphi-Quellcode:

  if (FindFirst(Directory + '*.*', faAnyFile, SearchRec) = 0) then
  try
    repeat 
      If (SearchRec.Attr and faDirectory) = 0 then 
        Result := Result + SearchRec.Name + '|'; 
    until FindNext(SearchRec) <> 0; 
  finally
    FindClose(SearchRec);
  end;

[Helmi]

Hallo Christian,

danke für die schnelle hilfe

ich weiss, dass das FileExists nicht notwendig ist, aber ich habe es drin,
weil ich so damit die ersten zwei Zeilen mit Punkten (".", "..") verhindere

[Christian Seehase]

Moin Helmi,

. und .. sind aber Directory Einträge, so dass die o.g. Lösung die auch nicht ausgibt.
Wären es Dateien, würde Dir FileExists auch nicht helfen ;-)

[Helmi]

jo - hast recht :-)

und wie heissts bei uns in Bayern: Wer recht hat, zahlt am Maß :-)

danke für die Richtigstellung meines Code :-)

[rockycat]

Hi!

Ich hab' mal zwei Fragen dazu:

1.) Wenn man die Zeile

If (SearchRec.Attr and faDirectory) = 0 then

aus dem Listing herausnimmt, dann funktioniert das Ganze bei einer beliebigen Partition der Festolatte oder bei CD/Floppy. Ist die Zeile vorhanden, funktioniert es nur auf C: ?!? :?:

2.) Was muß geändert werden, um auch die Verzeichnisnamen auszulesen?

[Christian Seehase]

Moin Rockycat,

Delphi-Quellcode:

If (SearchRec.Attr and faDirectory) = 0 then

Jede Datei hat einige grundlegende Attribute, die in TSearchRec.Attr übergeben werden.
Mit

SearchRec.Attr and faDirectory

wird der ausgelesene Wert mit der Maske faDirectory verknüpft, so dass man entscheiden kann, ob es sich bei dem gefundenen Wert um ein Verzeichnis handelt, oder nicht.

Delphi-Quellcode:

// Wahr, wenn kein Verzeichnis
If (SearchRec.Attr and faDirectory) = 0 then

Delphi-Quellcode:

// Wahr, wenn Verzeichnis
If (SearchRec.Attr and faDirectory) = faDirectory then
// ginge auch, grundsätzlich wäre die obere Variante sicherer (bei zusammengesetzten Masken)
If (SearchRec.Attr and faDirectory) <> 0 then

Um nun also die Verzeichnisnamen auszulesen müsstest Du also nur die Abfrage weglassen.

Zudem solltest Du mit den Suchbegriffen FindFirst FindNext FindClose reichlich Beispiele dafür finden können.