问问东西可以批量另存为图片吗 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 问问东西可以批量另存为图片吗

共有4246人关注过本帖树形打印复制链接主题：问问东西可以批量另存为图片吗

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2014/6/23 16:16:00 [只看该作者]

我刚才试了几次，但是都没有把图片另存为到新建的文件夹里面！是不是要改那里!

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/23 16:18:00 [只看该作者]

贴出你的代码

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/6/23 16:19:00 [只看该作者]

你还要复制文件才可以的 http://www.foxtable.com/help/topics/0342.htm

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2014/6/23 16:28:00 [只看该作者]

FileSys.CreateDirectory(Tables("表A").Current("文件地址") & "\窗口图片备份")

FileSys.CopyFile("Tables("表A").Current("窗口图片"), "Tables("表A").Current("文件地址") & "\窗口图片备份",True)

For Each s As String In Tables("表A").Current.DataRow.Lines("窗口图片")

MessageBox.show(s)

还是报警，能再看看吗？感谢感谢

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/23 16:33:00 [只看该作者]

FileSys.CreateDirectory(Tables("表A").Current("文件地址") & "\窗口图片备份")

For Each s As String In Tables("表A").Current.DataRow.Lines("窗口图片")
FileSys.CopyFile(s, Tables("表A").Current("文件地址") & "\窗口图片备份\" & FileSys.GetName(s), True)
Next

[此贴子已经被作者于2014-6-23 16:34:24编辑过]

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2014/6/23 16:35:00 [只看该作者]

感谢感谢可以了

能在请教一个问题吗？就像怎么改变他的后缀名啊！

[此贴子已经被作者于2014-6-23 16:57:54编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/23 18:00:00 [只看该作者]

FileSys.CreateDirectory(Tables("表A").Current("文件地址") & "\窗口图片备份")

For Each s As String In Tables("表A").Current.DataRow.Lines("窗口图片")
    Dim n As String = FileSys.GetName(s)
    Dim idx As Integer = n.LastIndexOf(".")
    If idx > -1 Then
        n = n.SubString(0, idx)
    End If
    FileSys.CopyFile(s, Tables("表A").Current("文件地址") & "\窗口图片备份\" & n ".jpg", True)
Next

[此贴子已经被作者于2014-6-23 18:00:13编辑过]