51Testing软件测试论坛

标题: QTP如何获取所上传的文件大小与高宽，格式等 [打印本页]
作者: blanket    时间: 2011-6-16 11:50
标题: QTP如何获取所上传的文件大小与高宽，格式等
上传图片，要验证图片式，大小，高宽是否符合要求
现在是可以获取到这个图片的路径，要怎么样才能获取到该图片的大小，格式，与高宽呢？
作者: 17800455    时间: 2011-6-16 14:13
本帖最后由 17800455 于 2011-6-16 14:46 编辑

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

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

复制代码
作者: 17800455    时间: 2011-6-16 14:59
需要你自己 整理封装

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

file.type
作者: blanket    时间: 2011-6-17 11:42
回复 3# 17800455


    谢谢你的解答
作者: 云层    时间: 2011-6-17 15:16
不错，很好很强大
作者: fanli82    时间: 2011-6-17 16:10
学习了



欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2