我想多文件列的文件到剪贴板,然后之前的方法没有成功,请老师帮忙指导一下
Dim r As Row = Tables("案例图主表.案例图明细表").Current
Dim fls As String
fls = r("图片")
Dim Value As String = fls
Dim Names() As String = Value.Split(chr(13))
Dim path As New System.Collections.Specialized.StringCollection
For Each name As String In Names
path.Add("\\192.168.0.200\地图文件\altu_images\" & name)
Next
My.Computer.Clipboard.SetFileDropList(path)
复制多张图片到剪贴板无法成功