Einzelnen Beitrag anzeigen

EmWieMichael

Registriert seit: 28. Mär 2012
103 Beiträge
 
#2

AW: Platzhalter in FindFirst/FindNext

  Alt 30. Nov 2016, 13:26
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)
  Mit Zitat antworten Zitat