主题：改成按钮的代码应该怎么做？

此主题相关图片如下：2.png

x下面是源代码

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