我也借花敬佛,把好東西給各位分享.

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 ]

一句msgbox now就搞定了，不用那么麻烦

呵呵，楼上的方法不错，学习了！

还有msgbox time