如果 C:\1.TXT文件 大于5MB THEN MSGBOX "文件太大" END FI FileLen 函数 返回一个 Long,代表一个文件的长度,单位是字节 VB code: Option Explicit Dim strfFleName
Private Sub Command1_Click() Dim MySize CommonDialog1.ShowOpen strfFleName = CommonDialog1.FileName MySize = FileLen(strfFleName) Debug.Print MySize End Sub
VB code: Private Sub Command1_Click() Dim MySize CommonDialog1.ShowOpen strfFleName = CommonDialog1.FileName MySize = FileLen(strfFleName) MsgBox MySize / 1024 ^ 2 & "Mb" End Sub