主题：这个压缩照片的，报错？

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