解决VB6直接用FILELEN无法获取超过2G大小的文件

解决VB6直接用FILELEN无法获取超过2G大小的文件

方法一：

Dim fso
Set fso = CreateObject(“Scripting.FileSystemObject”)
a1 = fso.GetFile(“D:\锐起无盘4\server1\Virtual Hard Disks\server2012锐起4.vhdx”).Size
MsgBox a1

方法二：
引用 Microsoft Scripting Runtime

'利用FSO对象获得大文件的大小 需引用 Microsoft Scripting Runtime
Function GetFlen(ByVal FpathName As String) As Double
Dim fso As New FileSystemObject
GetFlen = fso.GetFile(FpathName).Size
End Function