這樣做,用的是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 "執行完成"