преобразование в MB не работает

Question

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

линия: strlength = strlength * (1024/1024)

Private Sub btnclick_Click (ByVal отправитель Как System.Object, ByVal е Как 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 

End Class

Answer 1

Вы разделив на 1:

strlength = strlength * (1024/1024) 

Скобки делает 1024 разделен на 1024 произойдет первым, который равен 1.

Должно быть

strlength = strlength/1024/1024