我也借花敬佛,把好東西給各位分享.
coding:
dim f,fso,m,d,x
x=1
set fso=createobject("scripting.filesystemobject")
set f=fso.createtextfile(".\_fd.txt",true)
m=cstr(month(cdate(now-x)))
d=cstr(day(cdate(now-x)))
if len(m)=1 then m="0" & m
if len(d)=1 then d="0" & d
f.writeline(year(now-x)&m&d)
---------------------------------------------------------
save as fdate.vbs即可
[ Last edited by xmi on 2008-2-21 at 09:13 PM ]
coding:
dim f,fso,m,d,x
x=1
set fso=createobject("scripting.filesystemobject")
set f=fso.createtextfile(".\_fd.txt",true)
m=cstr(month(cdate(now-x)))
d=cstr(day(cdate(now-x)))
if len(m)=1 then m="0" & m
if len(d)=1 then d="0" & d
f.writeline(year(now-x)&m&d)
---------------------------------------------------------
save as fdate.vbs即可
[ Last edited by xmi on 2008-2-21 at 09:13 PM ]
