以文本方式查看主题 -  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=98036)

--  作者：jinzhengbe --  发布时间：2017/3/23 0:03:00 --  把当前行对应的图片 复制到其他文件夹 Dim lvw As WinForm.ListView = Forms("分类").Controls("ListView1") Dim vls As String = "" Dim ls As new List(of Integer) For Each vr As WinForm.ListViewRow In lvw.SelectedRows     vls = vls & "," & vr.tag("id")      vr.tag("lei")= "外套"          ls.add(vr.Index)   FileSys.CopyDirectory("e:\\as", "e:\\bb\\qrcord\\le\\" & "外套" & "\\" )   vls = vls.Trim(",") If vls > "" Then     For i As Integer = ls.count-1 To 0 Step -1         lvw.rows(ls(i)).Delete     Next Else     MessageBox.show("你并没有选择图!" ) End If  黄色的部分 我是想复制当前被选中行对应的图片（在e:\\as目录下）  到"e:\\bb\\qrcord\\le\\" & "外套" & "\\" 注意 ： 只是复制当前行对应的图片 而不是as目录下的所有图片 现在执行代码 会把as目录下的所有图片都 复制过去 请各位大侠指点

--  作者：有点色 --  发布时间：2017/3/23 0:33:00 --   FileSys.CopyFile("e:\\as\\" & vr.tag("某列"), "e:\\bb\\qrcord\\le\\" & "外套" & "\\" & & vr.tag("某列"), true)