Discussion :

[Droopy41]

Bonjour,

Je cherche à réaliser une fonction sur les répertoires. Je m'explique :

J'ai un chemin = c:\rep\xrep\documents

le répertoire "xrep" peut s’appeler par n'importe quel nom, car il est généré automatiquement.

Je cherche à afficher la taille du dossier "documents" dans une "lib" sans connaitre le nom du répertoire qui dans l'exemple est "Xrep".

Est ce que quelqu'un aurait une idée ?

Merci.

[Patrice Terrier]

fListDirectory

[LeonCosnyd]

Si tu cherches à connaitre la taille du répertoire en Mo tu as une fonction pour cela : fRepTaille()

Qui donne ceci :

Code :

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

1
2
3
4
5
6
7
8
9
 
UnRépertoire, ResListeRépertoire sont des chaînes
ResListeRépertoire = fListeRépertoire("C:\rep\",frNonRécursif)
POUR TOUTE CHAÎNE UnRépertoire DE ResListeRépertoire SEPAREE PAR RC
	SI fRépertoireExiste(UnRépertoire +["\"]+"documents") ALORS
		Info(fRepTaille(UnRépertoire +["\"]+"documents")+" octets")
		SORTIR
	FIN
FIN

[Droopy41]

Cela fonctionne mais je galère pour afficher la taille en Go.

J'utilise la fonction "TailleVersChaine" mais j'ai toujours une erreur de compilation.

[LeonCosnyd]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
TailleEnOctets est un entier
TailleEnGigaoctets est un réel
UnRépertoire, ResListeRépertoire sont des chaînes
ResListeRépertoire = fListeRépertoire("C:\rep\",frNonRécursif)
POUR TOUTE CHAÎNE UnRépertoire DE ResListeRépertoire SEPAREE PAR RC
	SI fRépertoireExiste(UnRépertoire +["\"]+"documents") ALORS
		TailleEnOctets  =fRepTaille(UnRépertoire +["\"]+"documents")
		TailleEnGigaoctets  = Arrondi(TailleEnOctets / 1024 / 1024 / 1024,2) // o->Ko->Mo->Go
		Info("Taille du dossier :"+TailleEnGigaoctets  +" Go"
		SORTIR
	FIN
FIN

[LeonCosnyd]

Mais cela devrait aussi fonctionner avec la fonction

Code :

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

TailleVersChaine()

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
 
TailleEnOctets est un entier
UnRépertoire, ResListeRépertoire sont des chaînes
ResListeRépertoire = fListeRépertoire("C:\rep\",frNonRécursif)
POUR TOUTE CHAÎNE UnRépertoire DE ResListeRépertoire SEPAREE PAR RC
	SI fRépertoireExiste(UnRépertoire +["\"]+"documents") ALORS
		TailleEnOctets  = fRepTaille(UnRépertoire +["\"]+"documents")
		SI TailleEnOctets = -1 ALORS
			Erreur(ErreurInfo(errMessage))
		SINON
			Info(TailleVersChaîne(TailleEnOctets , tailleGo)
		FIN
		SORTIR
	FIN
FIN

[Droopy41]

Oui, cela fonctionne mais mon problème est que le dossier est supérieur à 2Go. Et Là, c'est plus bon.

[LeonCosnyd]

Et Là, c'est plus bon.

C'est à dire ? Vous avez une valeur incorrecte ? Une exception à l’exécution ? Si oui est-il possible de la voir ?

[Hemgé]

Oui, cela fonctionne mais mon problème est que le dossier est supérieur à 2Go. Et Là, c'est plus bon.

Bonjour,

Cela tombe sous le sens : un entier 'standard' est codé sur 4 octets et peut contenir des valeurs allant de -2 x 10 ⁹ à +2 x 10⁹, donc +/- 2 milliards ou Gigas.
Donc, il faut travailler avec un entier sur 8 octets

Code :

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

TailleEnOctets est un entier sur 8 octets

Après vérification, la documentation en fait état, mais uniquement dans la page consacrée à fTaille().

Bon travail

Hemgé

[Droopy41]

Effectivement.

Après modifications, cela marche très bien.

Merci.