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
解决VB6直接用FILELEN无法获取超过2G大小的文件方法一：Dim fsoSet fso = CreateObject(“Scripting.FileSystemObject”)a1 = fso.GetFile(“D:\锐起无盘4\server1\Virtual Hard Disks\server2012锐起4.vhdx”).SizeMsgBox a1方法二：引用 Microsoft Scripting Runtime'利用FSO对象获得大文件的大小 需引用 Microsoft Scri
VB
读取
超过
2G
的数据
文件
VB
中，在一些函数、数据类型中与win32api调用时很多都是Long数据类型。
Long数据类型的内存空间范围从-2^31到2^31-1(即：-2147483648到2147483647)，
超过
后计算机会转化Long内存空间，显示出(如：-121321333)这样的数值，正常情况下很难理解这个数值是什么。再就是如何传入超出后的数值给win32api。
测试(如：
项目当中需要读取采集生成的AVI
文件
大小
，特记录如下:
'获得
文件
大小
Public Function Get
File
SizeByName(ByVal s
File
Name As String) As Double
On Error GoTo ErrHandle Dim
File
Handle As Long Dim
File
Info As BY_HANDLE_
FILE
_...
public class UnzipDemo {
public static void main(String[] args) throws Exception {
String url = "http://example.com/zip
file
.zip"; // 替换为实际的 zip
文件
URL
URLConnection conn = new URL(url).openConnection();
conn.setDoOutput(true);
conn.setRequestProperty("Content-Type", "application/zip");
InputStream in = conn.getInputStream();
ByteArrayOutputStream out = new ByteArrayOutputStream();
byte[] buffer = new byte[1024];
int
len
;
while ((
len
= in.read(buffer)) != -1) {
out.write(buffer, ,
len
);
in.close();
out.close();
byte[] zipData = out.toByteArray();
ZipInputStream zipIn = new ZipInputStream(new ByteArrayInputStream(zipData));
ZipEntry entry;
while ((entry = zipIn.getNextEntry()) != null) {
if (!entry.isDirectory()) {
String
file
Name = entry.getName();
File
OutputStream
file
Out = new
File
OutputStream(
file
Name);
byte[]
file
Data = new byte[1024];
int
file
Len
;
while ((
file
Len
= zipIn.read(
file
Data)) != -1) {
file
Out.write(
file
Data, ,
file
Len
);
file
Out.close();
zipIn.closeEntry();
zipIn.close();
这个示例代码可以从指定的 URL 下载 zip
文件
，并将其解压到当前目录下。如果你需要将解压后的
文件
输出到其他目录，可以修改代码中的 `
file
Name` 和 `
File
OutputStream` 相关部分。
