主题：复制图片

坛主，根据上楼代码，写入，复制图片失败，辛苦看看了

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:复制图片.zip

谢谢坛主，我的公司电脑，桌面录入被修改了，C:\商户经营照片  就没问题了。

如果要实现的是，复制在剪贴板里面 ctrl+c  ，不是复制到C:\商户经营照片 文件夹里面，下面代码怎么修改？ 求助

Dim path As String =  ProjectPath & "照片\商户经营照片\"
Dim dr = Tables("商户资料表").Current
Dim str2 As String = ""
Dim Result As DialogResult
If dr Is Nothing Then '如果没找到的话
    MessageBox.Show("数据库中无数据,无效操作!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    Return
Else
    Dim str1 As String = dr("法人姓名")
    result= MessageBox.Show("是否将此商户下的所有照片资料复制到桌面的《 法人姓名 》文件夹中!", "提示" ,MessageBoxButtons.YesNo,MessageBoxIcon.Question)
If FileSys.DirectoryExists(path) Then
    'msgbox("path=" & path)
    For Each file As String In FileSys.GetFiles(path)
        'msgbox("file =" & file )
        Dim name As String = FileSys.GetName(file)
        'msgbox("name =" & name )
        'msgbox("str1=" & str1)
        If name.Contains(str1) Then
            'msgbox("C:\商户经营照片\" & str1)
            If FileSys.DirectoryExists("C:\商户经营照片" ) = False Then
                FileSys.CreateDirectory("C:\商户经营照片")
                If FileSys.DirectoryExists("C:\商户经营照片\" & str1) = False Then
                    FileSys.CreateDirectory("C:\商户经营照片\" & str1)
                End If
            End If
           
            'msgbox("C:\商户经营照片\" & str1 & "\"  & name)
            FileSys.CopyFile(file ,"C:\商户经营照片\" & str1 & "\"  & name , True)
        End If
    Next
End If

坛主，帮忙看看，下面代码怎么修改了，多谢了

Dim path As String =  ProjectPath & "照片\商户经营照片\"
Dim dr = Tables("商户资料表").Current
Dim str2 As String = ""
Dim Result As DialogResult
If dr Is Nothing Then '如果没找到的话
    MessageBox.Show("数据库中无数据,无效操作!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    Return
Else
    Dim str1 As String = dr("法人姓名")
    result= MessageBox.Show("是否将此商户下的所有照片资料复制到桌面的《 法人姓名 》文件夹中!", "提示" ,MessageBoxButtons.YesNo,MessageBoxIcon.Question)
If FileSys.DirectoryExists(path) Then
    'msgbox("path=" & path)
    For Each file As String In FileSys.GetFiles(path)
        'msgbox("file =" & file )
        Dim name As String = FileSys.GetName(file)
        'msgbox("name =" & name )
        'msgbox("str1=" & str1)
        If name.Contains(str1) Then
            'msgbox("C:\商户经营照片\" & str1)
            If FileSys.DirectoryExists("C:\商户经营照片" ) = False Then
                FileSys.CreateDirectory("C:\商户经营照片")
                If FileSys.DirectoryExists("C:\商户经营照片\" & str1) = False Then
                    FileSys.CreateDirectory("C:\商户经营照片\" & str1)
                End If
            End If
           
            'msgbox("C:\商户经营照片\" & str1 & "\"  & name)
            'FileSys.CopyFile(file ,"C:\商户经营照片\" & str1 & "\"  & name , True)

Dim img As Image = GetImage("C:\商户经营照片\" & str1 & "\"  & name)
ClipBoard.SetImage(img)

        End If
    Next
End If

End If

上面代码报错：

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2019.8.29.1
错误所在事件：窗口,窗口1,Button5,Click
详细错误信息：
值不能为 null。
参数名: image