爱丝钻石系列T009:用vb如何得到一个pdf文档属性

你的问题可以这样解决：

首先你要使用vb api函数以及api结构：

Public Type BY_HANDLE_FILE_INFORMATION
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
dwVolumeSerialNumber As Long
nFileSizeHigh As Long
nFileSizeLow As Long
nNumberOfLinks As Long
nFileIndexHigh As Long
nFileIndexLow As Long
End Type

Public Type OFSTRUCT
cBytes As Byte
fFixedDisk As Byte
nErrCode As Integer
Reserved1 As Integer
Reserved2 As Integer
szPathName(OFS_MAXPATHNAME) As Byte
End Type

Public Declare Function OpenFile Lib "kernel32" Alias "OpenFile" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long

Public Declare Function GetFileInformationByHandle Lib "kernel32" Alias "GetFileInformationByHandle" (ByVal hFile As Long, lpFileInformation As BY_HANDLE_FILE_INFORMATION) As Long

关键的语句是：
dim lp as OFSTRUCT;
DIM FILEINFO AS BY_HANDLE_FILE_INFORMATION

filehandle＝openfile（“aa。pdf”，lp，OF_READ)
getfileinformationbyHandle filehandle，FILEINFO

这个FILEINFO就是你要的文件的所有属性的一个vb定义的结构，得到这个结构

你就可以得到文件所有的属性。

你还可以查阅vb api函数的帮助，对你解决问题有帮助，祝好运！