VB如何判断一个TXT文件有多少MB？

Question

VB如何判断一个TXT文件有多少MB获取TXT文本的大小MB判断大小如果 C：\1.TXT文件 大于5MB THEN
 MSGBOX "文件太大"
END FI 

Answer 1

FileLen 函数
返回一个 Long，代表一个文件的长度，单位是字节
Option Explicit
    Dim strfFleNamePrivate Sub Command1_Click()
    Dim MySize
    CommonDialog1.ShowOpen
    strfFleName = CommonDialog1.FileName
    MySize = FileLen(strfFleName)
    Debug.Print MySize
End Sub

Answer 2

Private Sub Command1_Click()
    Dim MySize
    CommonDialog1.ShowOpen
    strfFleName = CommonDialog1.FileName
    MySize = FileLen(strfFleName)
    MsgBox MySize / 1024 ^ 2 & "Mb"
End Sub

Answer 3

获取 C：\1.TXT文本的大小MB 在加上判断，

Answer 4

Private Sub Command1_Click()
    Dim MySize
    MySize = FileLen("C:\1.TXT")
    If MySize > 5000000 Then
        MsgBox "文件太大"
    End If
End Sub

Answer 5

FileLen返回的是字节数，而非兆字节。需要转换