Stocker dans une variables les octets dans un dossier

Version imprimable

19/12/2021, 10h02
steever38

Stocker dans une variables les octets dans un dossier

Bonjour,
Je cherche a calculer le nombre d'octets utilisé dans le dossier "E:\vidéos" puis le stocker dans une variable pour l'afficher avec echo.
Est-il possible de convertir les octets en Mo ?
Merci.

:salut:
NB : Pour afficher correctement les caractères accentués, Vous devez enregistrer ce code avec l'encodage ANSI avec Notepad++

Code:

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
30
31
32
33
34
@echo off
Title Get Folder Size
chcp 1252>nul
set "Folder=E:\vidéos"
Call :GetSize %Folder% Size
echo The size of "%Folder%" is "%Size%"
pause
Exit /B
::-----------------------------------------------------------
:GetSize <Folder> <Size>
(
echo wscript.echo GetSize("%~1"^)
echo Function GetSize(MyFolder^)
echo    Set fso = CreateObject("Scripting.FileSystemObject"^)
echo    Set objFolder= fso.GetFolder(MyFolder^)  
echo    GetSize = FormatSize(objFolder.Size^)
echo End Function
echo 'Function to format a number into typical size scales
echo Function FormatSize(iSize^)
echo    aLabel = Array("Octets", "KB", "MB", "GB", "TB"^)
echo    For i = 0 to 4
echo        If iSize ^> 1024 Then
echo            iSize = iSize / 1024
echo        Else
echo            Exit For
echo        End If
echo    Next
echo    FormatSize = Round(iSize,2^) ^& " " ^& aLabel(i^)
echo End Function
)>%tmp%\Size.vbs
@for /f "delims=" %%a in ('Cscript /NoLogo %tmp%\Size.vbs') do set "%2=%%%a" 
Del %tmp%\Size.vbs
Exit /b
::-----------------------------------------------------------

19/12/2021, 20h45
steever38

1 pièce(s) jointe(s)

Bonsoir,
Le code ne fonctionne pas...

Pièce jointe 610451
19/12/2021, 22h58
hackoofr

1 pièce(s) jointe(s)

Citation:

Envoyé par steever38

Bonsoir,
Le code ne fonctionne pas...
Pièce jointe 610451

Essayer directement le code batch dans la pièce-jointe et dis-moi si ça marche ou non chez vous :roll:

Dans un fichier PS1

Code:

1
2
$var = ((Get-ChildItem -LiteralPath "E:\vidéos" -Recurse -File | Measure-Object Length -Sum).Sum / 1MB).ToString("#.##")
echo "$var Mo"

21/12/2021, 20h30
steever38

Citation:

Envoyé par hackoofr

Essayer directement le code batch dans la pièce-jointe et dis-moi si ça marche ou non chez vous :roll:

Merci, ça fonctionne finalement