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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 文件整批复制改名

共有3018人关注过本帖树形打印复制链接主题：文件整批复制改名

有点甜

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

加好友

发短信

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

Post By：2019/1/28 9:57:00 [显示全部帖子]

做一个具体的例子发上来测试，文件和项目一起打包发上来。

说明如何操作，最后得到什么效果。

有点甜

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

加好友

发短信

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

Post By：2019/1/28 10:41:00 [显示全部帖子]

导出按钮代码，如

Dim str = e.Form.Controls("0437最新文件编号").text
Dim s = left(str, 1)
Dim s2 As String = str.Substring(1)
Dim i = val(s2)
Dim t As Table = Tables("数据库")
For Each r As Row In t.Rows
    i += 1
    msgbox("c:\b\" & s & format(val(i), left("00000000", s2.length)))
    FileSys.CopyFile(r("文件存储位置") & "/" & r("文件名"), "c:\b\" & s & format(i, left("00000000", s2.length)), True)
Next
e.Form.Controls("0437最新文件编号").text = s & Format(i, left("00000000", s2.length))
e.Form.Controls("0437最新文件编号").WriteValue

有点甜

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

加好友

发短信

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

Post By：2019/1/28 11:48:00 [显示全部帖子]

以下是引用lungby在2019/1/28 11:42:00的发言：
你好，再麻烦下，这个复制后的文件后缀怎么加上呢？

参考

http://www.foxtable.com/webhelp/scr/2707.htm

有点甜

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

加好友

发短信

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

Post By：2019/1/29 10:02:00 [显示全部帖子]

FileSys.CopyFile(r("文件存储位置") & "\" & r("文件名"), "c:\钢保数据\" & s & format(i, left("00000000", s2.length) & "." & ifo.Extension), True)

下一主题 >> << 上一主题

主题：文件整批复制改名