如何读取一个图片文件的大小、类型、长、宽等属性

csXimagetrial.ocx,imginfo.ocx，百度搜csXimagetrial和imginfo控件就可以了.

可以用图片采集ACDSee 3.1

Dim fso As New FileSystemObject
Dim fol As Folder
Dim fil As File
Set fso = CreateObject("Scripting.Filesystemobject")
Set fil = fso.GetFile("图片所在路径")
Debug.Print fil.Attributes
Debug.Print fil.DateCreated
Debug.Print fil.DateLastAccessed
Debug.Print fil.DateLastModified
Debug.Print fil.Size
Debug.Print fil.Type

找了一下，似乎没有找到相关的API可以读位图信息的，不过也不是做不到，查查资料，了解一下各种格式图片的文件结构，自己用二文件读取的方式来读图片文件的文件头就是了

下面是我查到的一点点有用的东西

BMP
文件头长度14，且一定是BM起头，后面跟着一个信息头，这里就有你要的数据，信息头第一字节指定了该信息头的长度，在其后的8字节中，前四字节是图片的宽，后四字节是图片的高，单位是象素

GIF
这个倒是研究过，前面6字节是“GIF89a”，那是很多年前了，现在可能有所变化，但文件的头3字节是一定不会变的，那就是GIF（十六进制是47 49 46），而且文件一定以3B结尾，第7字节开始4字节是宽和高，各占2字节，下一个字节表示它的色彩深度，如下
十六进制值：80 81 82 ... 87
对应的颜色数:2 4 8 256
也就是2^(值-&H7F)

JPG图片似乎比较难搞，我没查到什么有用的信息，这里附上一个BMP文件结构