重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
把结果用字节集变量,再其字节集数据,长整数就行了,多大都能取
成都创新互联公司是专业的集安网站建设公司,集安接单;提供成都网站制作、网站设计,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行集安网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
1、新建一个标准的VB EXE工程,只有一个Form,Form上有两个按钮:Command1和Command2。
2、双击Command1添加如下代码
Private Sub Command1_Click()
Dim strFile As String
Dim intFile As Integer
Dim strData As String
strFile = "c:\学生成绩.txt"
intFile = FreeFile
Open strFile For Input As intFile
strData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode)
Debug.Print strData
Close intFile
End Sub
3、按F8开始单步调试代码,点击Command1,进入单步调试功能,
4、多次按下F8或直接按下F5运行完成,就完成了读取文本文件内容并输出到立即窗口。
首先引入System.IO命名空间(在代码文件的最上方)
Imports System.IO
然后在需要用到的地方:
Dim mp3fileinfo As New FileInfo(mp3文件完整路径字符串)
'mp3fileinfo.Length就是文件的大小,以B(字节)为单位,除以1024得到KB,再除以1024得到MB
你实例化一个文件对象,就可以获取这个文件的相关属性了,VB.NET实例,以你的文件为例:
Dim sourcefileinfo As New FileInfo(“ c:\1.txt”) '定义并实例化FileInfo对象。length就是它的大小!
label1.Text = "文件大小为: " sourcefileinfo.Length "字节"