用日期组成的文件名
(1)"\data" & Date.Today.year & Date.Today.Month & Date.Today.Day & Date.Now.Hour & Date.Now.Minute & ".zip"
结果:data20141092249.zip
data2014109650.zip
(2)Bfbak\"& CStr(Format(Today,"yyyy-MM-dd")).replace("-","") & CStr(Format(now,"HH:mm")).replace(":","") & ".mdb.bak
结果:Bfbak\201410092250.mdb.bak
Bfbak\201410090322.mdb.bak