- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 只复制相应的行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=75257)
-- 发布时间：2015/10/1 22:44:00
-- 只复制相应的行
Select Case e.DataCol.Name
Case "女装"
FileSys.CopyDirectory("f:\\as", "f:\\upfile1\\pic\\" & d & "\\" )
FileSys.CopyDirectory("f:\\as1", "f:\\upfile1\\spic\\" & d & "\\" )
FileSys.CopyDirectory("f:\\as2", "f:\\upfile1\\ppic\\" & d & "\\" )
Case "男装"
FileSys.CopyDirectory("f:\\as", "f:\\upfile1\\man\\pic\\" & d & "\\" )
FileSys.CopyDirectory("f:\\as1", "f:\\upfile1\\man\\spic\\" & d & "\\" )
FileSys.CopyDirectory("f:\\as2", "f:\\upfile1\\man\\ppic\\" & d & "\\" )
Case "鞋"
FileSys.CopyDirectory("f:\\as", "f:\\upfile1\\xie\\pic\\" & d & "\\" )
FileSys.CopyDirectory("f:\\as1", "f:\\upfile1\\xie\\spic\\" & d & "\\" )
FileSys.CopyDirectory("f:\\as2", "f:\\upfile1\\xie\\ppic\\" & d & "\\" )
Case "包"
FileSys.CopyDirectory("f:\\as", "f:\\upfile1\\bag\\pic\\" & d & "\\" )
FileSys.CopyDirectory("f:\\as1", "f:\\upfile1\\bag\\spic\\" & d & "\\" )
FileSys.CopyDirectory("f:\\as2", "f:\\upfile1\\bag\\ppic\\" & d & "\\" )
Case "饰品"
FileSys.CopyDirectory("f:\\as", "f:\\upfile1\\pin\\pic\\" & d & "\\" )
FileSys.CopyDirectory("f:\\as1", "f:\\upfile1\\pin\\spic\\" & d & "\\" )
FileSys.CopyDirectory("f:\\as2", "f:\\upfile1\\pin\\ppic\\" & d & "\\" )
Case "童装"
FileSys.CopyDirectory("f:\\as", "f:\\upfile1\\tong\\pic\\" & d & "\\" )
FileSys.CopyDirectory("f:\\as1", "f:\\upfile1\\tong\\spic\\" & d & "\\" )
FileSys.CopyDirectory("f:\\as2", "f:\\upfile1\\tong\\ppic\\" & d & "\\" )
End Select
想在上面的代码里 加上一个条件
开始复制的时候，想只复制符合条件的行，其他的如果不符合条件就，不进行复制，用来节省时间
例如：
f:upfile1/pic/ 只复制第 1,7,8,9行的对应的图片
f:upfile1/man/pic/ 只复制第 2行的对应的图片
此主题相关图片如下：f.png
-- 发布时间：2015/10/1 23:15:00
--
CopyDirectory: 将目录中的所有内容复制到另一个目录。
要筛选的话:应该在目录里就分好类
-- 发布时间：2015/10/4 11:49:00
--
select查出符合条件的行，然后取出文件路径，复制文件