这样做,用的是vbs脚本,应该能实现你的要求,不满意请hi我:
on error resume next
set fso=wscript.createobject("scripting.filesystemobject")
k=inputbox("请输入日期,格式为"&date(),"自动计算复制工具",date())
for i=0 to 30
d=DateAdd("d",i,k)
w=Weekday(cstr(d))
if w=1 then
w=7
Else
w=w-1
end if
fso.createfolder "e:"&day(cstr(d))
fso.copyfile "D:WENJIAN"&w&".xml","e:"&day(cstr(d))&""&w&".xml"
Next
msgbox "执行完成"