以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于文件复制时命名问题!  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130472)

--  作者:bashanren
--  发布时间:2019/1/22 22:47:00
--  [求助]关于文件复制时命名问题!
各位老师晚上辛苦!!
以下代码是关于复制数据库文件的,但最后一段代码不知怎么写,请老师们帮助,谢谢各位!!
Dim d1 As String = format(Date.Today(),"yyyyMMdd")
Dim d2 As String = "database" & d1 & ".MDB"
msgbox(d2)
FileSys.CopyFile("\\\\Bashan\\川达管理系统\\人事管理系统\\database.MDB", "\\\\Bashan\\川达管理系统\\人事管理系统\\BF\\ \'" & d2 & "\',True)

--  作者:有点蓝
--  发布时间:2019/1/22 22:56:00
--  
又不是条件表达式,加什么单引号!

FileSys.CopyFile("\\\\Bashan\\川达管理系统\\人事管理系统\\database.MDB", "\\\\Bashan\\川达管理系统\\人事管理系统\\BF\\" & d2,True)