把当前行对应的图片复制到其他文件夹 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

Else

MessageBox.show("你并没有选择图!" )

End If

黄色的部分我是想复制当前被选中行对应的图片（在e:\as目录下）

到"e:\bb\qrcord\le\" & "外套" & "\"

注意：只是复制当前行对应的图片而不是as目录下的所有图片

现在执行代码会把as目录下的所有图片都复制过去

请各位大侠指点

主题：把当前行对应的图片 复制到其他文件夹