[FindFirst] Comment obtenir la taille d'un répertoire ?
Bonjour a tous !
Avec la fonction FindFirst j'extrait la Date/Heure et la Taille de certains fichiers qui sont stocké dans une TListView, seulement voila, dans cette liste il n'y a pas que des fichiers, il y a aussi des repertoires, et quand je veut extraire des attributs de repertoire, il me renvoie juste la Date/Heure , mais pour la Taille il me renvoie 0, alors quand c'est un repertoire du type C:\WINNT, il y a un gros probleme, par ce que celui-ci ne fait pas 0 octets.
Voici la procedure qui extrait les attribut :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| procedure TForm2.EnabledClick(Sender: TObject);
var I: Integer; PropertyF: TSearchRec;
begin
for I:=0 to ListView1.Items.Count-1 do
begin
if ListView1.Items[I].Selected then ListView1.Items[I].SubItems[1]:='Oui';
if FindFirst(ListView1.Items[I].Caption,faAnyFile,PropertyF)=0 then
begin
Prop[I,0]:=PropertyF.Time;
Prop[I,1]:=PropertyF.Size;
FindClose(PropertyF);
end;
end;
Apply.Enabled:=True;
end; |
Nota : J'ai bien entendus essayer avec faAnyfile+faDirectory, et aussi avec faDirectory tout seul, et bien sur cela n'a rien donné, et il convient de dire que FindFirst me renvoie bien 0, étant donné que la Date/Heure est extraite.
Si je pourrais avoir de l'aide cela serait super sympa, merci a tous !
