[VB.net][C#] Taille d'un fichier

Salut tout le monde...
Pour récuperer la taille d'un fihier je fais ça:

Code:

---

1 2 3

Dim MonFichier As New FileInfo("c:\Test.txt") Taille = MonFichier.Length

---

mais voilà, j'ai pas la valeur souhaitée...
Exemple:
http://www.rr11.com/uploads/f42ea21511.jpg
Ce que je voudrai Obtenir c'est la valeur souligée en bleu, alors qu'avec cette methode j'obtien la valeur souligée en rouge...

Un peu d'aide SVP...

ok
une fois que tu connais le nombre de Byte exacts de ton fichier, il te faut maintenant calculer la taillle effective occupée sur le disque, pour cela tu as besoin de savoir comment sont définis sur ce disque:
1. le nombre de secteurs par cluster
2. le nombre de bytes par secteur
Tu peux donc utiliser l'API GetDiskFreeSpace

Code:

---

1 2 3 4 5 6 7 8 9

DllImport("kernel32.dll"SetLastError=True, CharSet=CharSet.Auto)> _ Shared Function GetDiskFreeSpace( _ ByVal lpRootPathName As String, _ ByRef lpSectorsPerCluster As System.UInt32, _ ByRef lpBytesPerSector As System.UInt32, _ ByRef lpNumberOfFreeClusters As System.UInt32, _ ByRef lpTotalNumberOfClusters As System.UInt32) As Boolean End Function

---

Les paramètres passées par references lpSectorsPerCluster et lpBytesPerSector recevront ces infos

Ok je vais voir...

Citation:

---

Envoyé par neguib

ok
une fois que tu connais le nombre de Byte exacts de ton fichier, il te faut maintenant calculer la taillle effective occupée sur le disque, pour cela tu as besoin de savoir comment sont définis sur ce disque:
1. le nombre de secteurs par cluster
2. le nombre de bytes par secteur
Tu peux donc utiliser l'API GetDiskFreeSpace

Code:

---

1 2 3 4 5 6 7 8 9

DllImport("kernel32.dll"SetLastError=True, CharSet=CharSet.Auto)> _ Shared Function GetDiskFreeSpace( _ ByVal lpRootPathName As String, _ ByRef lpSectorsPerCluster As System.UInt32, _ ByRef lpBytesPerSector As System.UInt32, _ ByRef lpNumberOfFreeClusters As System.UInt32, _ ByRef lpTotalNumberOfClusters As System.UInt32) As Boolean End Function

---

Les paramètres passées par references lpSectorsPerCluster et lpBytesPerSector recevront ces infos

---

Explication finale:

Code:

---

1 2 3

Dim MonFichier As New FileInfo("c:\Test.txt") Taille = MonFichier.Length

---

Code:

---

1 2 3 4 5 6 7 8 9

DllImport("kernel32.dll"SetLastError=True, CharSet=CharSet.Auto)> _ Shared Function GetDiskFreeSpace( _ ByVal lpRootPathName As String, _ ByRef lpSectorsPerCluster As System.UInt32, _ ByRef lpBytesPerSector As System.UInt32, _ ByRef lpNumberOfFreeClusters As System.UInt32, _ ByRef lpTotalNumberOfClusters As System.UInt32) As Boolean End Function

---

En fait avec ces deux foction nous obtenons
Le nombre de byte du fichier: Taille
Le nombre de Byte par secteur: lpBytesPerSector
Le nombre de secteur par cluster: lpSectorsPerCluster

Il suffic alos de calculer le nombre de cluster NC occupé par le fichier:

N=Arrondissement_a_l'entier_superier(taille/lpBytesPerSector )
NC=Arrondissement_a_l'entier_superier(N/lpSectorsPerCluster )

Et puis calculer TailleReelle le nombre de Byte que Occupe NC Cluster:
TailleReelle=NC * lpBytesPerSector * lpSectorsPerCluster


Merci pour l'aide... :D