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)
思路与方法：
试了下，确定是字符处理没有处理正确，每个图片一行，最后一个字符是换行或回车，所以替要彻底去掉，可以用循环法，我这里只是演示下思路，本地或局域网(已经确认有权限访问先)也测试成功。
加好友 
发短信
Post By：2020/9/26 21:20:00 [显示全部帖子]
