VBÈçºÎÅжÏÒ»¸öTXTÎļþÓжàÉÙMB£¿

VBÈçºÎÅжÏÒ»¸öTXTÎļþÓжàÉÙMB

»ñÈ¡TXTÎı¾µÄ´óСMB

ÅжϴóС

Èç¹û 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

---

FileLenº¯Êý

---

ÒýÓÃ

VBÈçºÎÅжÏÒ»¸öTXTÎļþÓжàÉÙMB

»ñÈ¡TXTÎı¾µÄ´óСMB

ÅжϴóС

Èç¹û C£º\1.TXTÎļþ ´óÓÚ5MB THEN
MSGBOX "ÎļþÌ«´ó"
END FI

ÇëÎÊÈçºÎÅжϰ¡£¿£¿1

---

»ñÈ¡ C£º\1.TXTÎı¾µÄ´óСMB

ÔÚ¼ÓÉÏÅжϣ¬

---

ÊÔÊÔsfo¡£

---

»ñµÃÎļþÊôÐÔ×î¿ì

---

FileLen·µ»ØµÄÊÇ×Ö½ÚÊý£¬¶ø·ÇÕ××Ö½Ú¡£ÐèҪת»»