mh... rekursiv durch die Ordner... denke nich das du es anders schaffen wirst...
Delphi-Quellcode:
FindFirst(MessageDirectory+'\*.*',faAnyFile,sr);
Found := FindNext(sr);
while ( Found = 0) do begin
Found := FindNext(sr);
end;
FindClose(sr);
das mal als ansatz...
[edit]
ach sorry ... ne das hilft dir gerade nicht...
habs erst jetz richtig verstanden was du willst
sorry nochmals
[/edit]