Discussion :

[koKoTis]

Bonjour, existe il une commande pour obtenir le poid d'un fichier ou dossier ?

[ced600]

Tu prends ton fichier, tu le met dans le creux de ta main, et tu estime à la volée combien de gramme il fait

Nan sérieusement, qu'est ce que tu appelles poid d'un fichier, la taille ?

[koKoTis]

ben oui la taille quoi, en octet bien sur

et si possible convertir les octer en KO MO et GO et eventuellement TO

[ced600]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("c:\windows\system32\scrrun.dll")
Wscript.Echo "Date created: " & objFile.DateCreated
Wscript.Echo "Date last accessed: " & objFile.DateLastAccessed
Wscript.Echo "Date last modified: " & objFile.DateLastModified
Wscript.Echo "Drive: " & objFile.Drive
Wscript.Echo "Name: " & objFile.Name
Wscript.Echo "Parent folder: " & objFile.ParentFolder
Wscript.Echo "Path: " & objFile.Path
Wscript.Echo "Short name: " & objFile.ShortName
Wscript.Echo "Short path: " & objFile.ShortPath
Wscript.Echo "Size: " & objFile.Size
Wscript.Echo "Type: " & objFile.Type

L'objet File de FileSystemObject permet d'obtenir ce genre d'info. La propriété Size correspond à la taille du fichier.

[koKoTis]

j'ai trouver ce script pour le poid d'un répertoire mais il ne pése pâs en octet:

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
Dim RepTot
Const MY_DOCUMENTS = "C:\Documents and Settings\Kookatix\Bureau\Nouveau dossier"
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Shell.Application")
 
Set objFolder = objShell.Namespace(MY_DOCUMENTS)
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path
 
Set objFolder = objFSO.GetFolder(strPath)
 
If objFolder.Size<1024^2 Then
      RepTot=FormatNumber(objFolder.Size/1024,0)&" KB"
    ElseIf objFolder.Size<10240^2 Then
      RepTot=FormatNumber(objFolder.Size/(1024^2),2)&" MB"
    Else
      RepTot=FormatNumber(objFolder.Size/(1024^2),0)&" MB"
    End If
 
Wscript.Echo RepTot

[koKoTis]

mereci beaucoup c'est parfait, et plus simple que le code que j'ai trouver

maitenant pourai tu m'aider a convertir en KO puis MO puis GO puis enfin TO ?

[ced600]

bah les conversion se font en divisant le résultat obtenu par 1024 :

1 GO = 1024 MO,
1 MO = 1024 KO,
1 KO = 1024 Octets,
1 Octet = 8 bits.

1 Byte = 1 Octet : Byte terme anglais pour Octet.

EDIT :
Si je commence à confondre les multiplications et les divisions cela ne va plus aller