Hallo zusammen,
ich suche (auf einem Serverlaufwerk) Dateien deren erster Buchstabe im Namen H ist also
Delphi-Quellcode:
mask:='
H*';
sstring:=mypath;
sstring:=sstring+mask;
weiter:=sysutils.FindFirst(sstring, faAnyFile, SearchRec);
if weiter=0
then begin
if (searchrec.attr
and fadirectory = 0)
then
dl.add(sfill+searchrec.
name);
while weiter=0
do begin
weiter:=sysutils.FindNext(SearchRec);
if (weiter=0)
and (searchrec.attr
and fadirectory = 0)
then begin
dl.add(sfill+searchrec.
name);
end;
end;
{while------------------}
end;
sysutils.FindClose(SearchRec);
Das funktioniert nur bedingt, da auch Dateinamen zurück gegeben werden mit '....H...' und nicht nur 'H.......'.
Gut das kann ich filtern mit
if Dateiname[1]='H' then ..
aber wofür dann die Maske?
(das Programm läuft unter W7)
Mit 'H*.*' ist es das gleiche Ergebnis.
Gruß
K-H