可以参考一下：
【VB声明】
Private Declare Function GetFileInformationByHandle Lib "kernel32" Alias "GetFileInformationByHandle" (ByVal hFile As Long, lpFileInformation As BY_HANDLE_FILE_INFORMATION) As Long【说明】
这个函数提供了获取文件信息的一种机制——在一个BY_HANDLE_FILE_INFORMATION结构中装载与文件有关的信息 【返回值】
Long，非零表示成功，零表示失败。会设置GetLastError 【参数表】
hFile ---------- Long，文件的句柄 lpFileInformation - BY_HANDLE_FILE_INFORMATION，用于容纳文件信息的结构
【VB声明】
Private Declare Function GetFileInformationByHandle Lib "kernel32" Alias "GetFileInformationByHandle" (ByVal hFile As Long, lpFileInformation As BY_HANDLE_FILE_INFORMATION) As Long【说明】
这个函数提供了获取文件信息的一种机制——在一个BY_HANDLE_FILE_INFORMATION结构中装载与文件有关的信息 【返回值】
Long，非零表示成功，零表示失败。会设置GetLastError 【参数表】
hFile ---------- Long，文件的句柄 lpFileInformation - BY_HANDLE_FILE_INFORMATION，用于容纳文件信息的结构
解决方案 »
免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货