Hallo zusammen,
Ich habe folgendes Problem:
Ich möchte eine procedure schreiben die einen bestimmten Ordner nur bis zu einem bestimmten Punkt durchsucht weil es sonst zu lange dauern würde alles zu durchsuchen. Die Struktur sieht folgendermaßen aus:
Hier soll noch drin gesucht werden!(Und zwar soll auch der Ordnername an sich gefunden werden)
X:\14.14.14
Hier auch noch (jedoch muss hier nur eine bestimmte Datei mit einer bestimmten Endung(.ser) gefunden werden)
X:\14.14.14\Datensicherung
Hier nicht mehr also die Ordner (CFG DTA UND EMG) sollen komplett bei der suche ignoriert werden
X:\14.14.14\Datensicherung\CFG
X:\14.14.14\Datensicherung\DTA
X:\14.14.14\Datensicherung\EMG
Von diesen Zahlenordnern wird es später sehr viele geben.
Ich habe versucht folgenden Code zu verändern ist mir aber nicht gelungen:
Delphi-Quellcode:
var
SR: TSearchRec;
begin
if (ADirectory<>'') and (ADirectory[length(ADirectory)]<>'\') then
ADirectory:=ADirectory+'\';
if (FindFirst(ADirectory+AMask,faDirectory,SR)=0) then begin
repeat
if (SR.Name<>'.') and (SR.Name<>'..') {(SR.Attr<>faDirectory)} then
If CheckBox1.checked = true then AList.Add(ADirectory+SR.Name) else AList.Add(SR.Name)
until FindNext(SR)<>0;
FindClose(SR);
end;
if ARekursiv then
if (FindFirst(ADirectory+'*.*',faDirectory,SR)=0) then
begin
repeat
if (SR.Name<>'.') and (SR.Name<>'..') then
GetFilesInDirectory(ADirectory+SR.Name,AMask,AList,True);
until FindNext(SR)<>0;
FindClose(SR);
end;
Dann habe ich mir überlegt erst alle Ordnerpfade(die mit den Zahlen) die sich auf dem Laufwerk befinden zwischen zu speichern und dann jeden durch einen neuen Aufruf nochmal zu durchsuchen. Das gleich dann mit dem Datensicherungsordner. Jedoch gefällt mir diese Lösung garnicht.
Vielleicht habt ihr Lust und Zeit mir zu helfen ich selbst komme nämlich nicht mehr weiter.
Schonmal vielen Dank!