- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]复制多个文件到剪贴板的错误问题？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=154746)
-- 发布时间：2020/9/25 16:18:00
-- [求助]复制多个文件到剪贴板的错误问题？
我想多文件列的文件到剪贴板，然后之前的方法没有成功，请老师帮忙指导一下
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)
复制多张图片到剪贴板无法成功
-- 发布时间：2020/9/25 16:26:00
--
文件路径错误，或者无法访问
-- 发布时间：2020/9/26 10:10:00
-- 回复：（有点蓝）文件路径错误，或者无法访问
可以访问，地址也没错。如果只是一张图片的时候没有问题的，但是多张图片就提示地址无效了。
此主题相关图片如下：32323.jpg
-- 发布时间：2020/9/26 21:20:00
--
Dim r As Row = Tables("案例图主表.案例图明细表").Current
Dim fls As String
fls = r("图片")
Dim Value As String = fls
Dim LOPATH As String = "\\\\192.168.0.200\\地图文件\\altu_images\\"
Value = Value.Replace(vblf,"/")
Value = Value.Replace(vbcr,"/")
Dim s1() As String = Value.split("/")
For i As Integer = 0 To s1.Length -1
s1(i)= LOPATH & s1(i)
Output.Show(s1(i))
Next
Dim FileList As New System.Collections.Specialized.StringCollection
For i As Integer = 0 To s1.Length -1
If FileSys.FileExists(s1(i)) Then
FileList.Add(Trim(CStr(s1(i))))
\'FileList.Add(CStr(s1(i)))
\'Output.Show(s1(i))
End If
Next
My.Computer.Clipboard.SetFileDropList(FileList)
思路与方法：
试了下，确定是字符处理没有处理正确，每个图片一行，最后一个字符是换行或回车，所以替要彻底去掉，可以用循环法，我这里只是演示下思路，本地或局域网(已经确认有权限访问先)也测试成功。
-- 发布时间：2020/9/27 9:35:00
--
1楼代码
Dim Names() As String = Value.replace(vbcr,"").Split(vblf)