- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 复制图片 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=139764)
-- 发布时间：2019/8/21 2:05:00
-- 复制图片
怎样将某一行数据中的所有照片复制到指定文件夹中？
例如：数据库中有客户姓名、性别、照片等列，想实现将选中中的客户名下所有的照片复制到以该客户姓名命名的文件夹中，应该创建文件夹再复制照片，怎么实现呢？
[此贴子已经被作者于2019/8/21 7:42:10编辑过]
-- 发布时间：2019/8/21 8:45:00
--
参考：http://www.foxtable.com/webhelp/topics/0331.htm
-- 发布时间：2019/8/21 9:08:00
--
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 & "照片\\商户经营照片\\" 中照片有两个商户的照片时不复制照片并弹出“此商户无照片数据可复制,操作失败,无效操作!”提醒，如果只有一个商户照的时候能复制，怎么设置一下呢？
-- 发布时间：2019/8/21 9:13:00
--
"商户照片原始名称"单元格存储的是什么内容？截图看看
"商户照片原始名称"扩展列有没有设置存放目录，截图看看列属性设置
-- 发布时间：2019/8/21 9:17:00
--
有
此主题相关图片如下：1111.png
此主题相关图片如下：2222.png
此主题相关图片如下：333.png
[此贴子已经被作者于2019/8/21 9:24:13编辑过]
-- 发布时间：2019/8/21 10:00:00
--
"商户照片原始名称"单元格存储的文件名称没有扩展名？
"商户照片原始名称"扩展列有没有设置存放目录，截图看看列属性设置
-- 发布时间：2019/8/21 10:42:00
--
照片命名规则是:法人姓名+商户照片原始名+其他能代表图片意义的特征字符串
每个商户图片名称前半部分是一样的都是法人姓名+商户照片原始名称
图片格式扩展名不是固定的
[此贴子已经被作者于2019/8/21 10:46:47编辑过]
-- 发布时间：2019/8/21 10:58:00
--
图片格式扩展名不是固定的是什么意思？既然不固定，图片列又不存储扩展名，肯定没有办法判断文件的
-- 发布时间：2019/8/21 11:28:00
--
图片格式有jpg、png等
-- 发布时间：2019/8/21 12:00:00
--
上传实例吧