Discussion :

[beastman007]

Bonjour,

j'utilise un TSearchRec pour lister les dossiers de session contenu dans documents and settings, j'arrive à extraire la date de création mais concernant la taille du fichier il mets toujours 0 alors qu'ils font plusieurs giga... ?!

Que puis-je faire ?

Merci d'avance

[MD Software]

On peut voir ton code ?

[Reisubar]

Lorsque la taille des fichiers dépasse 2 Gb... Il faut regarder la FAQ :

http://delphi.developpez.com/faq/?pa...#taillefichier

:-)

[beastman007]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
procedure TInformation.getSessions;
 var mesResultats:TSearchRec;
     lstSess:TStrings;
     date:TFileTime;
     dateSys:TSystemTime;
     dateCreat:string;
     taille:int64;
begin
  if FindFirst('C:\Documents and Settings\*',faDirectory,mesResultats)=0 Then
  begin
    lstSess:=TStringList.Create;
    repeat
      if (mesResultats.Attr=fadirectory) then
      begin
        taille:=mesResultats.FindData.nFileSizeHigh;
        lstSess.Add(inttostr(taille));
        //Récupére date de création en chaine
        {FileTimeToLocalFileTime(mesResultats.FindData.ftCreationTime,date);
        FileTimeToSystemTime(date,dateSys);
        dateCreat:=DateTimeToStr(SystemTimeToDateTime(dateSys));
        lstSess.Add(dateCreat);    }
 
      end;
    until FindNext(mesResultats)<>0;
    FindClose(mesResultats);
    SetpSessions(lstSess);
  end;
end;

[beastman007]

les 2 dossiers de session contenus ur mon pc font 1,8 Go et 2,6 Go

[beastman007]

G essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Int64(mesResultats.FindData.nFileSizeHigh) shl 32 + mesRésultats.FindData.nFileSizeLow;

comme s'est présenté dans la FAQ lets il mets 0 tout le temps

[Reisubar]

Attends tu crois mesurer directement la taille d'un dossier comme ça ? Raté. Il faut faire de l'exploration récursive et additionner toutes les tailles des fichiers contenus dans le dossier...

[beastman007]

Ah d'accord il faut lister les fichiers contenus, récupérer leur taille et les cumuler ? j'ai vu une commande shell pour obtenir des infos sur la taille des dossiers est-ce efficace ? Sinon je vais essayer comme ça mais ca veut donc dire qu'un dossier a toujours une taille égale à 0 .... ?

[Reisubar]

Ah d'accord il faut lister les fichiers contenus, récupérer leur taille et les cumuler ?

Exact, c'est une possibilité.

j'ai vu une commande shell pour obtenir des infos sur la taille des dossiers est-ce efficace ?

Laquelle ?

Sinon je vais essayer comme ça mais ca veut donc dire qu'un dossier a toujours une taille égale à 0

...oui, du moins, la représentation associée manipulée via le TSearchRec.