VBScript : calculer la taille réellement occupée par un fichier

Question

Bonjour,

La propriété Size d'un FileSystemObject correspond à la propriété Taille de la fenêtre Propriétés


d'un dossier ou d'un fichier
.




Je souhaiterais connaître le moyen de calculer en VBScript la taille réelle occupée par un fichier ou un dossier sur le disque, ce qui correspond à la propriété Taille sur le disque de la fenêtre Propriétés d'un dossier ou d'un fichier.

J'ai découvert sur un autre site qu'en C#, il était possible d'importer la DLL kernel32.dll, et d'utiliser l'API GetDiskFreeSpace :



DllImport("kernel32.dll"SetLastError=True, CharSet=CharSet.Auto)> _
Shared Function GetDiskFreeSpace( _
    ByVal lpRootPathName AsString, _
    ByRef lpSectorsPerCluster AsUInt32, _
    ByRef lpBytesPerSector As System.UInt32, _
    ByRef lpNumberOfFreeClusters As System.UInt32, _
    ByRef lpTotalNumberOfClusters As System.UInt32)As Boolean
End Function




Ce qui permet de connaître:
Le nombre de Byte par secteur: lpBytesPerSector 
Le nombre de secteur 
par cluster: lpSectorsPerCluster 


Et de recalculer le nombre de cluster NC occupé par un 
fichier, d'où la taille réelle...

Mais je ne sais pas comment utiliser cette API VBScript...

ShareVB · Answer

salut,

http://www.activexperts.com/activmonitor/windowsmanagement/adminscripts/disk/drives/#EnumDiskDrive.htm...à voir si BlockSize de la classe 
Win32_DiskPartition contient la taille d'un cluster...

ShareVB

ShareVB · Answer

sinon : http://www.visualbasicscript.com/m_33044/mpage_1/tm.htm#33178

ShareVB

cs_JMO · Answer

Bonjour à tous

la proposition de shareVB, en wmi: 
http://www.secretswindows.com/index.php?rubrique=scripts&ssrubrique=WMI&ID=154&page=./scripts/wmi/filesystem.htm

jean-marc

VBScript : calculer la taille réellement occupée par un fichier

3 réponses

Votre réponse

Discussions similaires