如何判断文件夹是否存在？

[chong6]

这个代码是直接创建文件夹，我想弄个判断，就是如果文件夹存在就不创建，如果不存在就创建。
另外想问大家一个生成静态的问题，就是如果每次生成一个新闻内容页，就创建一次文件夹，是否会很费资源？

<%
d = Now()
y = Year(Now)
m = Right("0" & Month(Now), 2)

folder = ""&y&""&m&"" 
set fso = server.CreateObject("scripting.filesystemobject") 
fso.createfolder(server.MapPath(".\"&folder&"")) 
response.Write("文件夹创建成功") 
%> 

[SNOYC]

if fso.FolderExists(server.MapPath(".\"&folder&""))=false then
REsponse.write("此文件夹不存在")
end if

[ChinaXtHuLang]

'========================================
'函数名：FolderExits
'作 用：判断文件夹是否存在
'参 数：Folder   ------文件夹路径
'返回值：存在、True,不存在、false
'========================================
Function FolderExits(Folder)
	Folder = Server.Mappath(Folder)
	Set FSO = Server.CreateObject("Scripting.FileSystemObject")
	If FSO.FolderExists(Folder) Then
	   FolderExits = True
	Else
	   FolderExits = False
	End If 
End Function

[lbcleo]

[Quote=引用 2 楼 chinaxthulang 的回复:]
VBScript code
'========================================
'函数名：FolderExits
'作 用：判断文件夹是否存在
'参 数：Folder ------文件夹路径
'返回值：存在、True,不存在、false
'========================================
Function Folde……
[/Quote]`