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 需要声明什么吗?怎么做