Discussion :

[Droopy41]

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 :

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

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.

[hackoofr]

Testez ce :

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
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
'*******************************************************************

[ProgElecT]

Salut

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

Code :

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

Echo Round(oFolder.Size / (2 ^ 30),2), "Go"

[Droopy41]

Un grand Merci.

Cela fonctionne parfaitement.

Ce post est donc

[hackoofr]

Un grand Merci.

Cela fonctionne parfaitement.

Ce post est donc

Noubliez pas de mettre aussi un +1 sur la bonne réponse