主题：只复制相应的行

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

CopyDirectory: 将目录中的所有内容复制到另一个目录。

要筛选的话:应该在目录里就分好类

select查出符合条件的行，然后取出文件路径，复制文件