TA的每日心情 | 难过 2015-9-21 13:50 |
---|
签到天数: 4 天 连续签到: 1 天 [LV.2]测试排长
|
用数码相机拍了一些照片,放到手机上发现由于太大手机无法识别。
以前看过大虾用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
============================================================================================== |
|