Как подсчитать размер файла в байтах, килобайтах, мегабайтах и т.п - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

Итак, в форме программы должен выводится размер файла в зависимости от которого, показатель будет измеряться в b, Kb, Mb, Gb. Возникли некоторые сложности в подсчете, ведь функция IO.FileInfo.Length выводит размер в байтах. Возникла мысль сделать через If:
Но не покатило(

Решение задачи: «Как подсчитать размер файла в байтах, килобайтах, мегабайтах и т.п»

textual
Листинг программы
    Function GetFileSize(ByVal SizeInByte As Long) As String
 
        If (SizeInByte) < 1024 Then
            GetFileSize = SizeInByte & " Б"
        ElseIf (SizeInByte) < 1024 ^ 2 Then
            GetFileSize = Format(SizeInByte / 1024 ^ 1, "0.00") & " КБ"
        ElseIf (SizeInByte) < 1024 ^ 3 Then
            GetFileSize = Format(SizeInByte / 1024 ^ 2, "0.00") & " МБ"
        ElseIf (SizeInByte) < 1024 ^ 4 Then
            GetFileSize = Format(SizeInByte / 1024 ^ 3, "0.00") & " ГБ"
        ElseIf (SizeInByte) < 1024 ^ 5 Then
            GetFileSize = Format(SizeInByte / 1024 ^ 4, "0.00") & " ТБ"
        End If
 
    End Function

Оцени полезность:

11   голосов , оценка 4.091 из 5
Похожие ответы