преобразование в МБ не работает

Question

У меня есть приведенный ниже код (который проходит через диск C: и получает данные о файле), и я хочу преобразовать длину в «респектабельное» число - то есть, MB.Проблема в том, что строка ниже ничего не делает с кодом.Любая помощь будет оценена:

Строка: strlength = strlength * (1024/1024)

Private Sub btnclick_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Обрабатывает btnclick.Click

    Dim strFilesinfo As System.IO.FileInfo
    Dim strlength As Double = 0
    Dim strname As String = ""

    For Each strFiles As String In My.Computer.FileSystem.GetFiles("c:\")

        strFilesinfo = My.Computer.FileSystem.GetFileInfo(strFiles)

        strlength = strFilesinfo.Length
        strname = strFilesinfo.Name

        strlength = strlength * (1024 / 1024)
        lstData.Items.Add(strname & " " & strlength)

    Next
End Sub

Конечный класс

Answer 1

Вы делите на 1:

strlength = strlength * (1024 / 1024)

В скобках 1024 делится на 1024, что вначале равно 1.

Должно быть

strlength = strlength / 1024 / 1024