''' <summary> ''' Convertit la taille en octet d'un fichier en une chaine ''' </summary> ''' <param name="Fichier">Chemin du fichier</param> ''' <returns>Taille du fichier avec l'unité</returns> ''' <remarks>Cette méthode surcharge <c>TailleFichier</c></remarks> ''' <auteur>LEVEUGLE Damien [Elguevel]</auteur> Public Function TailleFichier(ByVal Fichier As String) As String If (Not File.Exists(Fichier)) Then Throw New Exception("Le fichier n'existe pas !") End If Dim fi As New FileInfo(Fichier) Return TailleFichier(fi.Length) End Function ''' <summary> ''' Convertit une taille exprimée en octet en une chaine ''' </summary> ''' <param name="Taille">Taille en octet</param> ''' <returns>Chaine formatée avec l'unité</returns> ''' <auteur>LEVEUGLE Damien [Elguevel]</auteur> Public Function TailleFichier(ByVal Taille As Long) As String If (Taille >= &H10000000000) Then Return String.Format("{0:N2} To", Taille / &H10000000000) ElseIf (Taille >= &H40000000) Then Return String.Format("{0:N2} Go", Taille / &H40000000) ElseIf (Taille >= &H100000) Then Return String.Format("{0:N2} Mo", Taille / &H100000) ElseIf (Taille >= &H400) Then Return String.Format("{0:N2} Ko", Taille / &H400) Else Return String.Format("{0} oc.", Taille) End If End Function
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.