易截截图软件、单文件、免安装、纯绿色、仅160KB

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返回的是字节数,而非兆字节。需要转换


相关问答:

求教下VB如何给D3D游戏写屏 - VB / API

想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】,效果就像游戏平台中一样,我试过在一窗口中写入文字,然后一直让窗口强制最前,虽然能实现文字显示,但是文字会不断闪烁,而且有不确定BUG,通过论坛搜 ......

vb中如何实现对象属性的动态设置 - VB / 基础类

本人使用的是VB6.0版本
假设有一个对象A,A内有类型为B的对象属性。现在的问题是,需要添加若干个B对象作为A对象的属性。如,
 A.B1,A.B2,...
但具体添加多少个B对象作为A对象的属性则视具体情况不同而不同 ......

vb可以这样做不? - VB / 非技术类

可以吗
好奇怪的题目额!!

可以告诉我们你到底想问什么 ?

2分给我的话就可以。

........................可以吗

可以!


  纠结,

29. vb可以这样做不? ( H )√
 A. ......

求vb大虾看一下啊!!!

Private Sub Form_Load()
  recs = Adodc1.Recordset.RecordCount '求当前记录数
  If recs > 0 Then '已有考生
  Adodc1.Recordset.MoveLast '移到最后一条记录
  num = V ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号