主题：[求助]动态插入图片代码错误

执行下面代码，能否拷贝文件到photo文件夹？

你图片列，是二进制列，还是字符列？

Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
dlg.InitialDirectory ="E:\图片库\" & CurrentTable.Current("产品编码")
If dlg.ShowDialog = DialogResult.OK Then
    Dim dr As DataRow = Tables("数据库").Current.DataRow
    Dim fs As String = ProjectPath & "attachment\photo\" & CurrentTable.Current("产品编码")
    Dim fn As String = dlg.FileName
    If FileSys.DirectoryExists(fs) Then
        For Each f As String In dlg.FileNames
            FileSys.CopyFile(f, fs & FileSys.GetName(f), True)
            'dr.SQLInsertFile("照片",fs)
        Next
    Else
        FileSys.CreateDirectory(fs)
        For Each f As String In dlg.FileNames
            FileSys.CopyFile(f, fs & FileSys.GetName(f), True)
            'dr.SQLInsertFile("照片",fs)
        Next
    End If
End If