太大都是负数

VB6数据类型的限制：
32位整数，从“2GB”开始，它的值就是负数了；
32位整数，只能表示“4GB”以内（达到4GB时已经“溢出”）的文件大小。
要获取“超大文件”的大小，用API函数：GetFileAttributesEx()
最大理论文件大小可达 2^64 -1 字节。
在VB6中要用Double类型来表示，自己要“计算处理”一下函数返回的数据值。

写了段应用GetFileAttributesEx()获取大文件字节数的代码，
贴出来大家参考一下。
注意这个 GetFileSize()函数中，我没有判断传入参数是文件还是文件夹，
如果传入的是“文件夹”，它返回的值是它的“目录记录数据区”占用的空间大小，
这个“空间”是不包含它里面的文件、子目录占用空间的。
可以按实际需求，增加几句代码，判断一下是否为“文件夹”。
我的这个函数，返回 -1表示获取失败（比如指定文件不存在、不可访问等）。
我的电脑中目前也没有太大的文件，就用了一个系统镜像文件来测试，
窗口中显示的“结果”数值，跟在“我的电脑”中用“文件属性”看到的文件大小是一致的。

'试了一个20G左右的文件，可用
Option Explicit
Private Sub Command1_Click()
Dim fso, filename, file, filesize
filename = "d:\VirtualBox VMs\c\c.vdi"
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.getfile(filename)
Debug.Print file.Size '21476933632
End Sub

看看鸽笼，吧友