Function CreateFolder(FolderName)
Set fso = CreateObject("Scripting.FileSystemObject")
if (fso.FolderExists(Server.MapPath(FolderName)))="False" then
Set f = fso.CreateFolder(Server.MapPath(FolderName))
end if
End Function
调用方式
CreateFolder(replace(date(),"-",""))