Question sur l'affichage de la taille d'un dossier en VBS.

Version imprimable

03/05/2016, 16h02
Droopy41

Question sur l'affichage de la taille d'un dossier en VBS.
Bonjour à tous,

J’essai désespérément de trouver une solution à mon problème d’affichage de la taille d’un dossier en « Go » avec deux chiffres après la virgule en VBS.
Voici le
Code:

1 2 3 Set oFs=CreateObject("Scripting.FileSystemObject") Set oFolder=oFs.GetFolder("c:\Oracle\Oradata") WScript.Echo oFolder.Size / (2 ^ 30), "Go"
Seulement cela ne fonctionne pas. Je tiens à dire que je ne suis pas du tout de la partie.
J’ai comme résultat 19,5489723 Go et j’aimerai avoir 19,55 Go.

Merci de votre aide.

:salut:
Testez ce :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
wscript.echo GetSize("c:\temp")
wscript.echo GetSize("c:\Oracle\Oradata")
'*******************************************************************
Function GetSize(MyFolder)
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set objFolder= fso.GetFolder(MyFolder)  
   GetSize = FormatSize(objFolder.Size)
End Function
'*******************************************************************
'Function to format a number into typical size scales
Function FormatSize(iSize)
   aLabel = Array("bytes", "KB", "MB", "GB", "TB")
   For i = 0 to 4
       If iSize > 1024 Then
           iSize = iSize / 1024
       Else
           Exit For
       End If
   Next
   FormatSize = Round(iSize,2) & " " & aLabel(i)
End Function
'*******************************************************************

03/05/2016, 18h22
ProgElecT

Salut

Moins complet...... mais .............

Code:

Echo Round(oFolder.Size / (2 ^ 30),2), "Go"
04/05/2016, 09h36
Droopy41

Un grand Merci.

Cela fonctionne parfaitement.

Ce post est donc :resolu:
04/05/2016, 09h54
hackoofr

Citation:

Envoyé par Droopy41

Un grand Merci.

Cela fonctionne parfaitement.

Ce post est donc :resolu:

:salut:
Noubliez pas de mettre aussi un +1 :plusser: sur la bonne réponse ;)