主题：[求助]批量修改图片尺寸并保存的问题

报错的问题，代码改一下，getImage对象没有释放

Dim i As Integer = 1 '定义保存名时使用的编号
Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png"
If dlg.ShowDialog = DialogResult.OK Then
    For Each fl As String In dlg.FileNames
        Dim img As new bitmap(fl)
        Dim bmp As new bitmap(img, 400, 400 * (img.height / img.width))
        bmp.save("D:\新建文件夹\" & Format(Date.now,"MMddHmmss") & i &  ".jpg")
        img.dispose
        bmp.Dispose
        i = i + 1
    Next
End If

限制图片个数

If dlg.FileNames.Length <= 10 Then

End If

限制文件大小，参考 http://www.foxtable.com/webhelp/scr/2707.htm