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 = 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) AndAlso name.Contains(str2) 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
FileSys.CopyFile(file,"C:\Users\Administrator\Desktop\商户经营照片\" & str1 & "\" & name, True)
Else
MessageBox.Show("此商户无照片数据可复制,操作失败,无效操作!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
Return
End If
Next
End If
End If
End If
经过测试出现如果 ProjectPath & "照片\商户经营照片\" 中照片有两个商户的照片时不复制照片并弹出“此商户无照片数据可复制,操作失败,无效操作!”提醒，如果只有一个商户照的时候能复制，怎么设置一下呢？
加好友 
发短信
Post By：2019/8/21 2:05:00 [只看该作者]
此主题相关图片如下：1111.png
