''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
　　 function SaveRandFileName(byval szFilename) '根据原文件名生成新的随机文件名
　　 randomize
　　 'ranNum=int(90000*rnd)+10000
　　 'if month(now)<10 then c_month="0" & month(now) else c_month=month(now)
　　 'if day(now)<10 then c_day="0" & day(now) else c_day=day(now)
　　 'if hour(now)<10 then c_hour="0" & hour(now) else c_hour=hour(now)
　　 'if minute(now)<10 then c_minute="0" & minute(now) else c_minute=minute(now)
　　 'if second(now)<10 then c_second="0" & second(now) else c_second=minute(now)
　　 fileExt_a=split(szFilename,".")
　　 fileExt=lcase(fileExt_a(ubound(fileExt_a)))

　　 SaveRandFileName=replace(replace(replace(now,":",""),"-","")," ","")&int(10*rnd)&"."&fileExt 　　
　　 'GenerateRandomFileName = year(now)&c_month&c_day&c_hour&c_minute&c_second&"_"&ranNum&"."&fileExt
　　 end function
　　 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''