主题：能不能编一个能压缩照片的小程序？ 程序

能不能编一个能压缩照片的小程序？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:压缩.zip

写了半天还是不成功，请大师帮忙指导写一下！

Dim tpath As String = ProjectPath & "处理数据\毕业照片(姓名证书编号命名)\"

For Each File As String In FileSys.GetFiles(tpath)
    Dim img As image = getImage(file)
    Dim bmp As new bitmap(img, 160, 120 * (img.height / img.width))
    bmp.save(ProjectPath & "处理数据\毕业照片(姓名证书编号命名压缩)\")
    bmp.Dispose
Next

此主题相关图片如下：20150419.jpg

这是怎么回事？请大师指点！