Private Sub Command1_Click()
'Taille du fichier
Dim Chemin$, TailleFic$, Valeur As Variant, Unit$
Chemin = "C:\xxx\fichiertest.exe"
Valeur = FileLen(Chemin)
If Valeur < 1000 Then
Unit = "octets"
ElseIf Valeur / 1024 < 1000 Then
Unit = "Ko"
Valeur = Left(Valeur / 1024, 4)
ElseIf Valeur / 1024 ^ 2 < 1000 Then
Unit = "Mo"
Valeur = Left(Valeur / 1024 ^ 2, 5)
ElseIf Valeur / 1024 ^ 3 < 1000 Then
Unit = "Go"
Valeur = Left(Valeur / 1024 ^ 3, 4)
End If
TailleFic = Valeur & " " & Unit
MsgBox TailleFic
End Sub