Print File Size

Here is an alternate I like to use.

    Private Function TranslateFileSize(ByVal size As Double) As String
        Try
            Dim filesizename() As String = {" Bytes", " KB", " MB", " GB", " TB", " PB", " EB", " ZB", " YB"}
            Dim pow As Double = Math.Floor(Math.Log(size, 1024))
            Return String.Concat(Math.Round(size / Math.Pow(1024, pow), 2), " ", filesizename(CInt(pow)))
        Catch ex As Exception
            Return size
        End Try
    End Function