vb6 将bytes文件大小转换成mb文件大小函数

可以使用以下代码将字节数转换为MB：

Public Function BytesToMB(ByVal bytes As Long) As Double
    BytesToMB = bytes / 1024 / 1024
End Function

该函数将字节数除以1024（KB），再除以1024（MB），得到MB大小。使用示例：

Dim fileSize As Long
fileSize = FileLen("C:\example.txt") ' 获取文件大小，单位为字节
Dim fileSizeMB As Double
fileSizeMB = BytesToMB(fileSize) ' 将字节数转换为MB大小
MsgBox "文件大小为：" & fileSizeMB & "MB"