主题：文件压缩求助

 Dim e As RequestEventArgs = args(0)
For Each dr As DataRow In DataTables("图库_木作定制").DataRows
    Dim file As String = dr("原始_文件地址")
    Dim img As image = getImage(file)
    Dim bmp As bitmap
    If img.width > 400 Then
        If 400 * (img.height / img.width) > 600 Then
            bmp = new bitmap(img, 400*(600/(800*(img.height/img.width))), 600)
        Else
            bmp = new bitmap(img, 400, 400 * (img.height / img.width))
        End If
    End If
Next

报什么错？如果前面的文件夹不存在，需要先创建文件夹

    For Each dr As DataRow In DataTables("图库_木作定制").DataRows
        Dim file As String = dr("原始_文件地址")
        Dim file1 As String = "D:\data\slt\" & dr("原始_文件夹")
        Dim img As image = getImage(file)
        Dim bmp As bitmap
        If img.width > 400 Then
            If 400 * (img.height / img.width) > 600 Then
                bmp = new bitmap(img, 400*(600/(800*(img.height/img.width))), 600)
            Else
                bmp = new bitmap(img, 400, 400 * (img.height / img.width))
            End If
        End If
        If FileSys.DirectoryExists(file1) = False Then
            FileSys.CreateDirectory(file1)
        End If
        bmp.save(file1 & "\" & dr("原始_文件名"))
        bmp.Dispose
       
    Next
End If

很奇怪，只有三行数据
此主题相关图片如下：企业微信截图_20220308181014.png

，显示却有4行

明明有7行数据呀，其它4行是空值

 检索后只有3行是有效的数据，其他是其他文件夹得了

请上传实例说明

If img.width > 400 Then
        If 400 * (img.height / img.width) > 600 Then
            bmp = new bitmap(img, 400*(600/(800*(img.height/img.width))), 600)
        Else
            bmp = new bitmap(img, 400, 400 * (img.height / img.width))
        End If

报什么错？