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
==============================================================================================

zero0223

顶下~

lijinshui

关于aspjpeg
简单安装方式的话，直接将aspjpeg.dll复制到windows/system32目录下面，在“开始”，“运行”处输入“regsvr32 aspjpeg.dll” 注册即可！
aspjpeg.dll下载地址：http://www.const.net.cn/userfiles/AspJpeg.rar
重启IIS即可使用，注册使用

Set jpg = Server.CreateObject("Persits.Jpeg")
jpg.RegKey = "48958-77556-02411"

查看是否注册成功使用:
Set jpg = Server.CreateObject("Persits.Jpeg")
response.write jpg.expires

如果注册成功了，会显示过期时间为:9999-9-9。

COPY FROM: [http://www.const.net.cn/]

vikesgao

不错，学习了

sspku

Set Jpeg=CreateObject("Persits.Jpeg")

折行代码运行不了呢，报不能创建对象

lyscser

Set Jpeg=CreateObject("Persits.Jpeg")
Set TDConn = CreateObject("TDApiOle80.TDConnection.1")
这样的对象定义有没有帮助文档可以指引呢？全靠baidu和摸索好球烦哦

sspku

Set Jpeg=CreateObject("ersits.Jpeg")
Set TDConn = CreateObject("TDApiOle80.TDConnection.1")
这样的 ...
lyscser 发表于 2010-10-9 21:54

   同问，哪里有手册