主题：请问:是否有办法批量修改图片的尺寸大小?

Dim img As image=getimage("C:\Users\foxtable1\Desktop\123.png")

Dim newImage As Image = new Bitmap(40, 40)

Dim g As Graphics = Graphics.FromImage(newImage)

g.DrawImage(img , new Rectangle(0, 0, 40, 40))

g.Dispose()

newImage.Save("C:\Users\foxtable1\Desktop\111.jpg")

配合GetFIles http://www.foxtable.com/help/topics/0341.htm