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

blanket

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

17800455

1. 
   
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
    
18. 
    
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
    
25. 
    

复制代码

17800455

需要你自己 整理封装

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

file.type

blanket

回复 3# 17800455


    谢谢你的解答

云层

不错，很好很强大

fanli82

学习了