AI时代，找源码已成为过去式，纪念我过去的十年0(回)
71天前
还有人吗2(回)
89天前会python真的可以为所欲为0(回)
569天前
这里还有人吗2(回)
754天前这里还有人吗0(回)
754天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
978天前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 |
