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

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

测试通过：

 

Dim tpath As String = "C:\data\毕业照片"
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("c:\data\缩略图\" & filesys.GetName(file))
    bmp.Dispose
Next

 

 

注意Save必须包括文件名和路径，你原来只是指定了路径

谢谢