比如有一个文件,然后判断
try Dim bit As New bitmap("d:\test.jpg") If bit Is Nothing Then msgbox("图片损坏") End If bit.Disposecatch ex As Exception msgbox("图片损坏")End try