以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  文件整批复制改名  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130637)
--  作者：lungby
--  发布时间：2019/1/28 9:53:00
--  文件整批复制改名
FileSys.CopyFile("C:\\TestFiles\\test.txt", "C:\\TestFiles2\\test.txt")

你好，想用这个命令实现按数值筛选后，将不同的文件名复制到其他地方，并修改文件名。 有一个固定数值，如X4300，如果筛选出3个数值，则修改后的文件名依次修改为x4301、x 4302、x4303，并记录这个固定数值，下次筛选文件存档，从X4304开始，麻烦可以给个代码吗，谢谢 

 序号  文件名   数值   
         
--  作者：有点甜
--  发布时间：2019/1/28 9:57:00
--  

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

 

说明如何操作，最后得到什么效果。
--  作者：lungby
--  发布时间：2019/1/28 10:20:00
--  
希望点击导出后，按照生成按钮筛选出的随机文件，将文件复制到C:\\b文件夹，并改名

文件的改名规则为按照最后文件号，+1，比如筛选出5个文件则将5个文件，最后文件号为F005，则5个文件依次为F006、f007、f008、f009、f010

另外，现在只有设置个“选
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:111.zip

择”复选框才能实现筛选，能帮忙修改下不设置这个吗？
--  作者：lungby
--  发布时间：2019/1/28 10:31:00
--  
文件上传了，麻烦您帮忙看下怎么弄，谢谢了
--  作者：有点甜
--  发布时间：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
--  作者：lungby
--  发布时间：2019/1/28 11:42:00
--  
你好，再麻烦下，这个复制后的文件后缀怎么加上呢？
--  作者：有点甜
--  发布时间：2019/1/28 11:48:00
--  
以下是引用lungby在2019/1/28 11:42:00的发言：
你好，再麻烦下，这个复制后的文件后缀怎么加上呢？

 

参考

 

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

 
--  作者：lungby
--  发布时间：2019/1/28 12:05:00
--  
 我是这么改的
Dim ifo As new FileInfo("c:\\a\\你.txt")
   FileSys.CopyFile(r("文件存储位置") & "\\" & r("文件名"), "c:\\钢保数据\\" & s & format(i, left("00000000", s2.length) & "ifo.Extension"), True)  

可是不可以哦，要怎么修改呢

想让复制后的文件和源文件的扩展名一致呢  
--  作者：有点蓝
--  发布时间：2019/1/28 16:00:00
--  
 FileSys.CopyFile(r("文件存储位置") & "\\" & r("文件名"), "c:\\钢保数据\\" & s & format(i, left("00000000", s2.length) & ifo.Extension), True)  
--  作者：lungby
--  发布时间：2019/1/28 16:19:00
--  
这样不行，只是在文件名后面直接加了后缀，例如整个文件应该是 a.xls，复制后的名字是b.xls，结果现在直接变成了bxls，没有后缀