主题：System.OutOfMemoryException”的异常

 你的图片都很大吗？或者很多吗？

 调整尺寸大小参考

 做个例子发上来，比较麻烦

 如下，代码写在datacolchanged事件，你拷贝缩略图到D盘即可测试

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

点击浏览该文件:listview压缩图请教.rar

If e.DataCol.Name = "产品效果图" Then

    If e.NewValue <> Nothing Then

        Dim file As String = ProjectPath & "Attachments\"  & e.NewValue

        Dim img As image = getImage(file)

        Dim bmp As new bitmap(getImage(file), img.width / 20, img.height / 20)

        bmp.save("d:\缩略图\" & e.NewValue)

        bmp.Dispose

    End If
    e.DataRow("效果缩略图") = e.NewValue
End If

1、自己测试；

2、如果要改成 Attachments\缩略图，窗口对应的代码也要改。

 有可能不存在具体的路径

Dim file As String = ProjectPath & "Attachments\缩略图" & e.NewValue
Dim path As String = file.Replace(FileSys.GetName(file),"")
If FileSys.DirectoryExists(path) = False Then '如果目录C:\MyFolder存在
    FileSys.CreateDirectory(path)
End If

bmp.save(file) 

 报什么错？

 上传项目，请把数据库发上来。