会python真的可以为所欲为0(回)
351天前
这里还有人吗1(回)
536天前这里还有人吗0(回)
536天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
761天前到处都是羊，不想上班0(回)
841天前
鸽子
0(回)
845天前Function Main() |
Dim fso,myFile,filename(6),filestr,copystr,expstr,nostr |
nostr=year(now)&month(now)&day(now)&"_"&hour(now)&minute(now)&Second(now) |
expstr=".txt" |
filename(1)="file1" |
filename(2)="file1" |
'filename(3)="file3" |
' filename(4)="file4" |
For i = 1 To 2 |
filestr=DTSGlobalVariables("newdirstr").Value&filename(i)& expstr |
copystr=DTSGlobalVariables("newcopydirstr").Value&filename(i)& nostr& expstr |
'全局变量，newdirstr文本路径，newcopydirstr备份路径 |
' msgbox copystr |
Set fso = CreateObject("Scripting.FileSystemObject") |
'*********************copy file |
Set MyFile = fso.GetFile(filestr) |
MyFile.Copy (copystr) |
Next |
Main = DTSTaskExecResult_Success |
End Function |
