vb.net – 将KB转换为MB？

发布时间：2020-12-17 07:16:51 所属栏目：百科来源：网络整理

导读：请查看此帖的底部,以便更新. 我有以下代码搜索目录并显示目录中的最大文件.问题是它以KB格式显示 – 我究竟如何将其转换为MB？文件大小太大,所以想要更容易阅读 – 感谢您的帮助： Private Sub btnGetMax_Click(ByVal sender As System.Object,ByVal e As Sy

请查看此帖的底部,以便更新.

我有以下代码搜索目录并显示目录中的最大文件.问题是它以KB格式显示 – 我究竟如何将其转换为MB？文件大小太大,所以想要更容易阅读 – 感谢您的帮助：

Private Sub btnGetMax_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnGetMax.Click
    ClearList()

    Dim dblSize As Integer = 0
    Dim dblMax As Integer = 0
    Dim strMax As String = ""

    Dim objFileInfo As System.IO.FileInfo

    For Each strFile As String In My.Computer.FileSystem.GetFiles("c:temp",FileIO.SearchOption.SearchAllSubDirectories)

        objFileInfo = My.Computer.FileSystem.GetFileInfo(strFile)
        /*whats the size of the files?*/
        dblSize = objFileInfo.Length

        If dblSize > dblMax Then
            dblMax = dblSize
            strMax = objFileInfo.FullName
        End If
    Next

    MessageBox.Show("Largest file in .Net folder is " & vbCrLf &
                    strMax & vbCrLf &
                    dblMax.ToString("N0"))
End Sub

应该让我自己更清楚！我知道如何将KB转换为MB但不知道我如何将其纳入我的代码 – 我是否为STRMAX添加了另一个变量/1024..EXCEPT我已经有了STRMAX VARIABLE ……仍然是一个非常多的初学者GUYS.

我知道如何将KB转换为MB – 问题是如何将其合并到我的代码中？我是否添加了另一个变量

解决方法

(抱歉,上一个回答是1024,错误的假设)

关于从kB转换为MB的问题,您可以通过SI标准来确定：

1 MB = 1000 kB

因此,除以1000.

对于不相信的,我鼓励你阅读this.

由于Microsoft Windows expresses等软件的存储量为1024字节的倍数,因此请将代码更改为：

dblMax = dblMax/(1024*1024)  

  MessageBox.Show("Largest file in .Net folder is " & vbCrLf &
  strMax & vbCrLf &
  dblMax.ToString("N0"))

(因为你正在打印dblMax&你的文件大小是以字节为单位,而不是kB)

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!