hallo, ich habe ein problem, und zwar werden die dateien, bwz die ordner die unter eigenschaften nix, also nicht schreibgeschützt, noch versteckt, noch im archiv sind angezeigt.
ich weiß, dass ich die FileAttrs einstellen muss, doch irgendwie habe ich alle kombinationen probiert, doch es geht nicht, dass eben diese angezeigt werden, die kein dieser oben genannten eigenschaften hat.
könntet ihr mir bitte sagen, wie ich alle dateien zurückgeben könnte.
hier mal eine fertige function von mir:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
| function lists(vs2: string):string;
var sr: TSearchRec;
FileAttrs: Integer;
scr: string;
begin;
FileAttrs :=FileAttrs + faAnyFile;
vs2:=trim(vs2);
if FindFirst(vs2, FileAttrs, sr) = 0 then begin;
repeat
if (sr.Attr and FileAttrs) = sr.Attr then begin;
scr:=scr + sr.Name +' | Size:'+ format('%f',[(sr.Size / 1024)]) +'KB'+ #13#10;
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;
result:=scr;
end; |
bitte verändert die entsprechend und sagt mir bescheid, welche eigenschaften ich hätte einstellen müssen. leider verzweifel ich hier schon, weil ich sämtliches durchprobiert hatte.
TIA
Big
Moderiert von 
Klabautermann: Code durch Delphi-Tags ersetzt.
