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
复制的是整个文件夹的图片,并且不能有其他商户的照片,一旦有就不执行操作
我想实现的是,如果该商户有照片只复制当前商户的照片到桌面上