获取bmp文件的尺寸代码 Set Img = CreateObject("WIA.ImageFile")Img.LoadFile("c:\准心.bmp")w=Img.Width h=Img.Height TracePrint w TracePrint h