提示这个错误
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:1716781360016.png
调试
msgbox(projectpath & "Attachments\" & Tables("开piao资料").current("图片"))
msgbox(SpecialFolder.DesktopDirectory & "\" & Tables("开piao资料").current("图片"))
FileSys.CopyFile(projectpath & "Attachments\" & Tables("开piao资料").current("图片"), SpecialFolder.DesktopDirectory & "\" & Tables("开piao资料").current("图片"))
命令窗口测试,前2句分开没有问题,,联一起,就出现错误
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:1716785578870.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2024-5/202452712581858563.png)
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:1716785639566.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2024-5/202452712581875008.png)
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:1716785772941.png
老师还是要麻烦你啊,,,你给的链接研究了半天,都是导入,删除的案例,,没有复制的,,改了好久,改不出来,麻烦老师给写一个,谢谢
没有什么区别呀,复制也就是加上FileSys.CopyFile而已
Dim lst As New List(of String)
lst = Tables("开piao资料").Current.DataRow.Lines("图片")
for each s as string in lst
FileSys.CopyFile(projectpath & "Attachments\" & s, SpecialFolder.DesktopDirectory & "\" & s)
next