Espace occupé disque

@echo off
setlocal enabledelayedexpansion

set /p espaceLibre="Entrez l'espace libre du volume (en octets) : "
call :conversion "!espaceLibre!" "espaceLibre"

echo. & set /p tailleTotale="Entrez la taille totale du volume (en octets) : "
call :conversion "!tailleTotale!" "tailleTotale" !unite!

set /a espaceOccupe=!tailleTotale!-!espaceLibre!
set "espaceOccupe=!espaceOccupe:~0,-2!,!espaceOccupe:~-2!"

echo. & echo Espace occupé : !espaceOccupe! !unite!

echo. & pause
exit

:conversion

echo. & set gel=0
set "nombre=%~1"

for %%A in (Ko, Mo, Go, To) do (
	if "!gel!"=="0" (
		if !nombre! GTR 999 (
			set "decimal=!nombre:~-3,2!"
			set "nombre=!nombre:~0,-3!"
			set "unite=%%A"
			echo Conversion : !nombre!,!decimal! !unite!
		)
	)
	if "%%A"=="%~3" (set gel=1) 
)

set /a "%2=!nombre!!decimal!"

rem echo Conversion : !nombre!,!decimal! !unite!

goto :eof

FOR /F "usebackq tokens=1 skip=2 delims= " %%F IN (`diruse M:`) DO set "size=%%F"

DIR L: /A-D/W/S |FIND "fichier(s)"|SORT/R |FIND/N "fichier(s)"|FIND "[1]"

FOR /F "tokens=2 delims=)" %%A IN ('DIR C: /A-D/W/S ^| FIND "fichier(s)" ^| SORT/R ^| FIND /N "fichier(s)" ^| FIND "[1]"') DO set "result=%%A"
set "result=%result: =%"
set "result=%result:octets=%"

FOR /F "tokens=2 delims=)" %%A IN ('DIR C: /A/S ^| FIND "fichier(s)"') DO set "result=%%A"
set "result=%result: =%"
set "result=%result:octets=%"

[1]             295 fichier(s)   448 056 676 686 octets

chcp 1252
FOR /F "delims=" %%A IN ('DIR L: /A/S ^| FIND "fichier(s)" ^| SORT/R ^| FIND /N "fichier(s)" ^| FIND "[1]"') DO ECHO %%A>%~dp0prov.txt
FOR /F "tokens=4 delims= " %%F in ('type %~dp0prov.txt ^| find "fichier(s)"') DO SET "SIZE=%%F"
DEL %~dp0prov.txt

@echo off
FOR /F "tokens=2 delims=)" %%A IN ('DIR C: /A/S ^| FIND "fichier(s)"') DO set "result=%%A"
set "result=%result: =%"
set "result=%result:octets=%"
echo %result%
pause