QTP--VBS批量处理图片文件

fei.ge

用数码相机拍了一些照片，放到手机上发现由于太大手机无法识别。
以前看过大虾用aspJpeg组件操作过图片，就想到通过同样的方法VBS批量缩小下图片！

==============================================================================================
'图片的高度和宽度修改成原来的1/10
Function update_picture(filename,newfilename)

        Dim Jpeg

        Set Jpeg=CreateObject("Persits.Jpeg")
        Jpeg.Open filename
        Jpeg.Width =Jpeg.OriginalWidth/10
        Jpeg.Height =Jpeg.OriginalHeight /10

        Jpeg.Save newfilename
        Jpeg.Close
        Set Jpeg=Nothing
       
End Function
'

Dim fs,fo,x
Dim str1,str2,filename,newfilename

str1 = "G:\1\"
str2 = "G:\2\"
set fs=CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder(str1)

'遍历文件夹str1中的所有文件
For each x in fo.files
   filename =str1 & x.Name
   newfilename = str2 & x.Name
   call update_picture(filename,newfilename)
next
set fo=nothing
set fs=nothing
==============================================================================================