Hallo!
Ich benutzte die alte rekursive Methode, um Verzeichnisse nach Dateien zu durchsuchen.
Also mit findFirst.... Ich benutze bewusst faAnyfile, damit auch versteckte Verzeichnisse erfasst werden.
Allerdings ist mir aufgefallen, dass faAnyFile keine System Verzeichnisse findet, wie z.B.:
C:\Documents and Settings\Administrator\Local Settings
Der Order "Local Settings" wird nicht gefunden.
Wie schaffe ich es, dass auch solche Verzeichnisse gefunden werden?
Delphi-Quelltext
1:
2:
3:
4:
5:
| found := FindFirst(Pfad + '*', faAnyFile, sr);
while found = 0 do
begin
if (sr.Name[1] <> '.') AND (IsDirectory(pfad+sr.Name)) then
....... |
IsDirc - Function
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| function IsDirectory(const Dir: string): Boolean;
var
R: DWORD;
begin
Result := false;
R := GetFileAttributes(PChar(Dir));
if (R = FILE_ATTRIBUTE_DIRECTORY) or (r = 48) or (r = 20) or (r = 16) then Result := true;
end; |
Moderiert von 
AXMD: Code- durch Delphi-Tags ersetzt.
Hast recht, da dürft er garnix finden.
