文件管理 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 文件管理

共有285人关注过本帖树形打印复制链接主题：文件管理

wlj88868

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：188 积分：1333 威望：0 精华：0 注册：2016/4/27 9:39:00

Post By：2024/5/27 11:46:00 [只看该作者]

提示这个错误

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

有点蓝

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107680 积分：547721 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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("图片"))

wlj88868

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：188 积分：1333 威望：0 精华：0 注册：2016/4/27 9:39:00

Post By：2024/5/27 12:58:00 [只看该作者]

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

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

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

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

有点蓝

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107680 积分：547721 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/5/27 13:34:00 [只看该作者]

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

wlj88868

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：188 积分：1333 威望：0 精华：0 注册：2016/4/27 9:39:00

Post By：2024/5/27 15:40:00 [只看该作者]

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

有点蓝

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107680 积分：547721 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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 上一页 1 2

主题：文件管理