Discussion :

[zitoun]

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

Code :

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

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

mais voilà, j'ai pas la valeur souhaitée...
Exemple:

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...

[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 :

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

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

[zitoun]

Ok je vais voir...

[zitoun]

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 :

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

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 :

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

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

Code :

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

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...