dim FileName
FileName=year(dtNow) & right("0" & month(dtNow),2) & right("0" & day(dtNow),2) & right("0" & hour(dtNow),2) & right("0" & minute(dtNow),2) & right("0" & second(dtNow),2)
不用那么麻烦，给你一个，不但可以以年月日时分秒命名，而且长度可以保持为14个字符，不然，遇到1-9月，1-9点，文件名会少两位。
这样在服务器管理上如果文件名排序会不正确。
function makefilename(fname)
fname = fname
fname = replace(fname,"-","")
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
fname = replace(fname,"/","")
makefilename=fname & ".html"
end function
filename = year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)& ".html
你这样写就可以了
