技术论坛

 • 产品分类
 • 咱工程师的故事
 • 培训与认证答疑专区
 • 服务合作伙伴专区
本版精华和精编 本版高端推荐 本版热门 本版最高收藏

新手请教：wincc VBS 脚本（按钮触发）将一个文件夹里的EXCEL文件复制到另一个文件夹，重命名，请各位前辈指导

作者 主题
新手

经验值: 11
发帖数: 1
精华帖: 0
主题：新手请教：wincc VBS 脚本（按钮触发）将一个文件夹里的EXCEL文件复制到另一个文件夹，重命名，请各位前辈指导


只看楼主 楼主 2013-12-22 11:07:07
Dim DTP_Date
Dim DTP_Date_a
Dim strDate,strDate_a
Set DTP_Date = HMIRuntime.ActiveScreen.ScreenItems("控件1")
strDate = CStr(Year(DTP_Date.Value))
strDate = strDate & "-" & Right("00" & CStr(Month(DTP_Date.Value)),2)
strDate = strDate & "-" & Right("00" & CStr(Day(DTP_Date.Value)),2)
strDate_a = CStr(strDate)
DTP_Date_a = CStr(strDate)& "备份"
HMIRuntime.Tags("test3").Write DTP_Date_a
shell "cmd.exe/c copy D:\report1\minute\"&strDate_a&".xls D:\report2\minute\"&DTP_Date_a&".xls"


使用FileCopy 需要声明什么吗？怎么做
 
以下网友喜欢您的帖子：
更多

  
重要声明：

著作权归作者所有。商业转载请联系作者获得授权，非商业转载请注明出处。

帖子链接：https://www.ad.siemens.com.cn/club/bbs/post.aspx?b_id=5&a_id=1117906&s_id=0&num=0
版主

经验值: 17310
发帖数: 8470
精华帖: 18
回复：新手请教：wincc VBS 脚本（按钮触发）将一个文件夹里的EXCEL文件复制到另一个文件夹，重命名，请各位前辈指导


只看楼主 1楼 2013-12-23 08:10:12
VBS里用 FileSystemObject对象操作文件。
Dim fs
Set fs = CreateObject("s cripting.FileSystemObject")
fs.CopyFile SourceFile,YourFile,True
三个参数：第一个，源文件名；第二个，目标文件名，文件名都是包含完整路径的；第三个，True表示目标文件名已存在的情况下，覆盖。
无论成与败，无论甜与苦，我还是我。
以下网友喜欢您的帖子：
更多

  
  • 上一页
  • 1
  • 下一页
收起
新手请教：wincc VBS 脚本（按钮触发）将一个文件夹里的EXCEL文件复制到另一个文件夹，重命名，请各位前辈指导
您收到0封站内信：
×
×
信息提示
很抱歉！您所访问的页面不存在，或网址发生了变化，请稍后再试。