Besteht das Problem nur auf dem Serverlaufwerk oder auch lokal. Ist das Serverlaufwerk gemappt?
Bei mir funktioniert diese Routine unter Win 7 lokal einwandfrei (ich habe mir erlaubt, das Ganze etwas zu verkürzen):
Delphi-Quellcode:
S:='
D:\TEMP\H*.*';
if (FindFirst(S, faAnyFile, SearchRec) = 0)
then
begin
repeat
if (searchrec.attr
and fadirectory = 0)
then
//dl.add(sfill+searchrec.name);
SayStr(searchrec.
name);
until (FindNext(SearchRec) <> 0);
FindClose(SearchRec);
end;
(SayStr ist eine MessageBox)