Print File Size

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