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

测试通过：

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必须包括文件名和路径，你原来只是指定了路径