Foxtable(狐表)用户栏目专家坐堂 → 请教一个问题?如何在文件名中表示出保存次数?


  共有5136人关注过本帖树形打印复制链接

主题:请教一个问题?如何在文件名中表示出保存次数?

帅哥哟,离线,有人找我吗?
lyfxybc
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1291 积分:9831 威望:0 精华:0 注册:2012/9/19 21:13:00
请教一个问题?如何在文件名中表示出保存次数?  发帖心情 Post By:2013/10/4 19:32:00 [显示全部帖子]

请教一个问题?如何在文件名中表示出保存次数?

  在下列代码划线处加入?

'导出当天纱线

Dim eF As New Exporter
eF.SourceTableName = "甲班纺纱信息"
eF.FilePath = "E:\MDB\甲班纺纱信息\MDB\甲班纺纱信息" & CStr(Date.Today).replace("-","") & ".mdb "
eF.Export()

 

 

点击一次保存按钮保存一个文件如:甲班纺纱信息2013100401,再保存一次又出现文件:甲班纺纱信息2013100402,以此类推。


 回到顶部
帅哥哟,离线,有人找我吗?
lyfxybc
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1291 积分:9831 威望:0 精华:0 注册:2012/9/19 21:13:00
  发帖心情 Post By:2013/10/4 20:10:00 [显示全部帖子]

谢谢,简单项目上传

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
lyfxybc
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1291 积分:9831 威望:0 精华:0 注册:2012/9/19 21:13:00
  发帖心情 Post By:2013/10/4 21:58:00 [显示全部帖子]

谢谢


 回到顶部
帅哥哟,离线,有人找我吗?
lyfxybc
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1291 积分:9831 威望:0 精华:0 注册:2012/9/19 21:13:00
  发帖心情 Post By:2013/10/6 18:00:00 [显示全部帖子]

谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
lyfxybc
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1291 积分:9831 威望:0 精华:0 注册:2012/9/19 21:13:00
  发帖心情 Post By:2013/10/7 16:12:00 [显示全部帖子]

非常感谢程老师。

 回到顶部
帅哥哟,离线,有人找我吗?
lyfxybc
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1291 积分:9831 威望:0 精华:0 注册:2012/9/19 21:13:00
  发帖心情 Post By:2013/11/2 22:28:00 [显示全部帖子]

代码修改如下:

      '导出当天纱线

      Dim eF As New Exporter
      eF.SourceTableName = "甲班纺纱信息"
      eF.FilePath = "E:\MDB\甲班纺纱信息\MDB\甲班纺纱信息" & CStr(Date.Today.Now).replace(":","") & ".mdb "
      eF.Export()

 

保存结果为:

    甲班纺纱信息2013-10-02   220129.mdb

                                                   时间

   好处是,保存后,没有重复的文件,文件名相同的话,第二次保存就把第一次保存的数据覆盖,一旦出现问题,就无法恢复了。

 

  请问:如何能连起来,成为:甲班纺纱信息20131002220129.mdb

            划线部分是在变化的。

 

 


 回到顶部