Question

vb求一个文件的大小

vb LOF或FileLen可以计算文件大小,但是这两个函数的返回值为long类型,当用这两个函数求一个超过2G的文件的大小时，会发生溢出错误，
请问，如何计算一个超大文件的大小呢？
谢谢各位啦，还有一个同样的问题：当用 put 和 get 函数读、写文件时，由于这两个函数的第二个参数也要求是long类型，也会发生错误，那么如何读、写一个超大文件的内容呢？

Answer 1

用fso对象模型：
dim fso as new filesystemobject
dim f as file

set f=fso.getfile("c:\1.txt") '得到文件大小，支持超过2G
debug.print f.size

追问

那么请问如何读、写超大文件的内容呢？

Answer 2

Private Sub Command1_Click()
MsgBox CreateObject("Scripting.FileSystemObject").GetFile("C:\1.txt").Size
End Sub

追问

那么请问如何读、写超大文件的内容呢？

追答

新问题新帖子。

Answer 3

用以下这段代码：
Dim fso As New FileSystemObject, Newfile As File
Set Newfile = fso.GetFile("你想要获得大小的文件（路径\文件名）")
Text1.Text = Newfile.Size
这段代码获得文件大小可以2G以上，10G都没问题，还省略了赋值的过程。

追问

那么请问如何读、写超大文件的内容呢？

追答

读写没问题，只要用下面的代码：

读：
Dim a As String
Open "C:\1.txt" For Input As #1
a = Input(LOF(1), 1)
Close #1

写：
Dim a As String
Open "C:\1.txt" For Output As #1
Print #1, "内容"
Close #1