Hallo,
ich habe da ein Problem mit folgender Prozedur:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
sr: TSearchRec;
s: string;
begin
s:= 'R:\xyz\S028*.*';
ListBox1.Items.Clear;
if FindFirst(s, faArchive, sr) = 0 then
repeat
ListBox1.Items.Add(sr.Name);
until FindNext(sr)<>0;
FindClose(sr);
end;
auf XP funktioniert das wie erhofft.
Suche ich aber auf einem Netzlaufwerk das auf einem Windows 2003 Server ist,
so werden zwar Dateien der Form S028*.* gefunden, aber auch noch
s047_ma_0000_01_sk.PDF
s047_ma_3220_00.PDF
die mit der Maske nichts zu tun haben. Suche ich nach z.B. S029*.* so werden andere Dateien
S047_... zurückgegeben.
Ein Schema erkenne ich nicht.
Hat jemand eine Idee was da passiert?
P.S. Wenn noch die Zeile
if (sr.Attr and faArchive) = sr.Attr then
ListBox1.Items.Add(sr.Name);
eingefügt wird wie häufig dargestellt, wird auf 2003 Server garnichtsmehr gefunden.