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目录下的所有图片都 复制过去
请各位大侠指点
加好友 
发短信
Post By：2017/3/23 0:03:00 [显示全部帖子]
