Dim file As String = e.DataCol.DefaultFolder & dr("季节归属") & "\" & dr("品类") & "\" & dr("款号") & "\" & dr("色称") & "\" & e.FileName
msgbox(file)
Dim img As image = getImage(file)
Dim bmp As new bitmap(img, 100, 100 * (img.height / img.width))
bmp.save(e.DataCol.DefaultFolder & dr("季节归属") & "\" & dr("品类") & "\" & dr("款号") & "\" & dr("色称") & "\" & "缩略图_" & e.FileName,img.RawFormat)
bmp.Dispose
已调整,但还是报错