主题：复制图片

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 result = DialogResult.yes Then

        str2 = str1 & dr("商户照片原始名称")

        If FileSys.DirectoryExists(path) Then

            For Each file As String In FileSys.GetFiles(path)

                Dim name As String = FileSys.GetName(file)

                If name.Contains(str1) Then

                    If FileSys.DirectoryExists("C:\Users\Administrator\Desktop\商户经营照片" ) = False Then

                        FileSys.CreateDirectory("C:\Users\Administrator\Desktop\商户经营照片")

                        If FileSys.DirectoryExists("C:\Users\Administrator\Desktop\商户经营照片\" & str1) = False Then

                            FileSys.CreateDirectory("C:\Users\Administrator\Desktop\商户经营照片\" & str1)

                        End If

                             End If

                         msgbox(file)                                          

                        FileSys.CopyFile(file ,"C:\Users\Administrator\Desktop\商户经营照片\" & str1 & "\"  & name , True)

                       msgbox("C:\Users\Administrator\Desktop\商户经营照片\" & str1 & "\"  & name)

                End If

            Next

        End If

    End If

End If

复制的是整个文件夹的图片，并且不能有其他商户的照片，一旦有就不执行操作

我想实现的是，如果该商户有照片只复制当前商户的照片到桌面上