麻烦各位老师帮忙看看，怎么获取大文件的字节数？

wuyunxz

FileLen函数返回long值，只能读取体积小于2G的文件，当文件大于2G的时候，FileLen就溢出了

请问怎么读取大文件的字节数呢？

crazy0qwer

1. Sub AAA()
   
2.     Dim dFileSize As Double
   
3.     Dim Fso As Object
   
4.     Set Fso = CreateObject("Scripting.FileSystemObject")
   
5.     dFileSize = Fso.GetFile("D:\123.TXT").Size
   
6.     MsgBox dFileSize
   
7. End Sub
   

复制代码

wuyunxz

crazy0qwer 发表于 2018-7-26 23:07

谢谢！我想请问一下 CreateObject("Scripting.FileSystemObject") 这个是创建一个什么对象？
能解释下吗？

crazy0qwer

wuyunxz 发表于 2018-7-27 09:14
谢谢！我想请问一下 CreateObject("Scripting.FileSystemObject") 这个是创建一个什么对象？
能解释下吗 ...

FileSystemObject     是文件系统对象。具体内容很多，论坛搜索或者百度。