quelques problèmes...

Bonsoir,

Histoire de vérifier que j'avais à peu près compris certaines choses,
j'ai réalisé une petite procédure à incorporer dans un batch pour
récupérer la taille, le nb de fichiers et de sous-dossiers d'un
répertoire :
voilà ce que ça donne plus bas
( on transmet à la procédure le chemin du répertoire et les noms des
variables à remplir)

Mes premiers tests semblaient nickels mais soudain ...
j'ai vu des pb...
J'ai mis un instant à comprendre :

1. La taille totale en octets donnée par DIR /S ( avant-dernière
ligne)
peut dépasser le fatidique 2 147 483 647
et alors set /a échoue ...

Je pourrais bien sûr, emporté par cet élan, mettre au point
des procédure de calculs en "haute précision" en reprogrammant
mais si vous avez une idée moins brutale, je suis client.

2. Le nb de répertoires indiqué par la dernière ligne de DIR /S
est bidon car les . et .. présents à chaque niveau sont comptés.
Il faudrait trouver une formule qui donnera le bon nb de répertoires
en fonction du nombre annoncé...
Si qqun en connait une, ça m'évitera d'y réfléchir ;o)
Ma conjecture est :
NBREEL= ( NBANNONCE - 2 )/3

mais peut-être les différentes combinaisons font qu'une formule est
impossible ?
Auquel cas il faudra faire une nouvelle boucle for
avec une variable compteur ( merci !Machin! )
qui compte les <REP> qui ne sont ni "." ni ".."


3. Par ailleurs, j'ai noté que le nb d'octets obtenu via DIR /S
diffère parfois très sensiblement du nb d'octets
obtenu par "clic droit > propriétés"
est-ce grave docteur ?

Bien amicalement,
HB

==================================
SCRIPT ===========================
Bien sûr les lignes avec FOR sont longues...
et finissent à la parenthèse ouvrante après le DO
==================================

Set REP=F:\Temp
Call :ANALYSEREP "%REP%" "T" "N" "R"
@CLS
@Echo La taille de %REP% est d'environ %T% Mo
@Echo %REP% contient %N% fichiers.
@Echo %REP% contient %R% r,pertoires.
@Echo.
@Pause
:: Suite du code
GOTO :LAFIN
:: ================================
:ANALYSEREP
for /F "tokens=1,3 delims= " %%a in ('dir /S /-C "%~1" 2^>nul ^|
findstr /E /L "octets" ') do (
set TAILLE=%%b
Set NBF=%%a
)
for /F "tokens=1 delims= " %%a in ('dir /S /-C "%~1" 2^>nul ^| findstr
/E /L "octets libres" ') do (
set NBR=%%a
)
set /a TKO=%TAILLE%/1024
set /a TMO=100*%TKO%/1024
set %~2=%TMO:~0,-2%,%TMO:~-2%
set %~3=%NBF%
set %~4=%NBR%
set TMO=
Set TKO=
Set TAILLE=
Set NBF=
Set NBR=
goto :eof
:: ================================
:LAFIN