blanket 发表于 2011-6-16 11:50:56

QTP如何获取所上传的文件大小与高宽，格式等

上传图片，要验证图片式，大小，高宽是否符合要求
现在是可以获取到这个图片的路径，要怎么样才能获取到该图片的大小，格式，与高宽呢？

17800455 发表于 2011-6-16 14:13:28

本帖最后由 17800455 于 2011-6-16 14:46 编辑


Set pic = LoadPicture("c:\test.jpg")
picWidth = CInt(pic.width * 24/635)'宽－转成像素
picHeight = CInt(pic.height * 24 /635)'高－转成像素
picty = CInt(pic.type) '类型
Select Case picty
Case 0
pictype = "None"
Case 1
pictype = "jpg;bmp;gif"
Case 2
pictype = "Metafile"
Case 3
pictype = "Icon"
Case 4
pictype = "Win32-enhanced metafile"
End Select

MsgBox picWidth &Chr(13)& picHeight & Chr(13) & pictype &Chr(13)
'//文件大小
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.GetFile("c:\test.jpg")
MsgBox Round((file.Size) / 1024,1)
Set fso = Nothing

17800455 发表于 2011-6-16 14:59:34

需要你自己 整理封装

另外你还可以获取所有文件类型

file.type

blanket 发表于 2011-6-17 11:42:08

回复 3# 17800455


    谢谢你的解答

云层 发表于 2011-6-17 15:16:35

不错，很好很强大

fanli82 发表于 2011-6-17 16:10:12

学习了
页: [1]
查看完整版本: QTP如何获取所上传的文件大小与高宽，格式等