set fso=Server.CreateObject("Scripting.FileSystemObject")
tmpPath=Server.MapPath("article")&"\"&year(mDate)
if not fso.FolderExists(tmpPath) then
set f=fso.CreateFolder(tmpPath)
set f=nothing
end if
'创建以当前时间YYYY/MM/DD为路径的文件夹,用于存放文章
mDate=now
set fso=Server.CreateObject("Scripting.FileSystemObject")
tmpPath=Server.MapPath("article")&"\"&year(mDate)
if not fso.FolderExists(tmpPath) then
set f=fso.CreateFolder(tmpPath)
set f=nothing
end if
tmpPath=tmpPath&"\"&right("0"&month(mDate),2)
if not fso.FolderExists(tmpPath) then
set f=fso.CreateFolder(tmpPath)
set f=nothing
end if
tmpPath=tmpPath&"\"&right("0"&day(mDate),2)
if not fso.FolderExists(tmpPath) then
set f=fso.CreateFolder(tmpPath)
set f=nothing
end if
set fso=nothing