Vb.net 转换为MB不起作用

我有下面的代码（通过C:驱动器获取文件信息数据），并希望将长度转换为一个“值得尊敬的”数字，即MB。问题是，下面的行对代码没有任何作用。如有任何帮助，将不胜感激：

行为：strlength=strlength*（1024/1024）

私有子btnclick\u Click（ByVal发送者作为System.Object，ByVal e作为System.EventArgs）处理btnclick。单击

    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

末级

你要除以1：

strlength = strlength * (1024 / 1024)

括号使1024除以1024首先发生，等于1

应该是

strlength = strlength / 1024 / 1024

你要除以1：

strlength = strlength * (1024 / 1024)

括号使1024除以1024首先发生，等于1

应该是

strlength = strlength / 1024 / 1024

strlength=strlength*（1024/1024）？我认为1024/1024将返回1，它将只返回strlength.strlength=strlength*（1024/1024）的值？我认为1024/1024将返回1，它将只返回strlength的值。