<System.Runtime.InteropServices.DllImport("shlwapi")> _
Public Function StrFormatByteSizeA(ByVal dw As UInteger, _
ByVal pszBuf As System.Text.StringBuilder, _
ByVal cchBuf As Integer) As System.IntPtr
End Function
Public Function TailleFichier(ByVal TailleEnOctets As UInteger) As String Dim mem As New System.Text.StringBuilder(256)
If StrFormatByteSizeA(TailleEnOctets, mem, mem.Capacity) <> System.IntPtr.Zero Then
Return mem.ToString()
Else
Return Nothing
End If
End Function