标题：文件管理

11楼

wlj88868 发表于：2024/5/27 11:46:00

提示这个错误

此主题相关图片如下：1716781360016.png

12楼

有点蓝 发表于：2024/5/27 11:50:00

调试

msgbox(projectpath & "Attachments\" & Tables("开piao资料").current("图片"))

msgbox(SpecialFolder.DesktopDirectory & "\" & Tables("开piao资料").current("图片"))

FileSys.CopyFile(projectpath & "Attachments\" & Tables("开piao资料").current("图片"), SpecialFolder.DesktopDirectory & "\" & Tables("开piao资料").current("图片"))

13楼

wlj88868 发表于：2024/5/27 12:58:00

命令窗口测试，前2句分开没有问题，，联一起，就出现错误
图片点击可在新窗口打开查看

此主题相关图片如下：1716785578870.png

此主题相关图片如下：1716785639566.png

此主题相关图片如下：1716785772941.png

14楼

有点蓝 发表于：2024/5/27 13:34:00

如果一个单元格有多个图片，参考：http://www.foxtable.com/webhelp/topics/2717.htm

15楼

wlj88868 发表于：2024/5/27 15:40:00

老师还是要麻烦你啊，，，你给的链接研究了半天，都是导入，删除的案例，，没有复制的，，改了好久，改不出来，麻烦老师给写一个，谢谢

16楼

有点蓝 发表于：2024/5/27 16:06:00

没有什么区别呀，复制也就是加上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)

共16 条记录, 每页显示 10 条, 页签: [1] [2]