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

chong6 2010-08-08 08:55:38
这个代码是直接创建文件夹,我想弄个判断,就是如果文件夹存在就不创建,如果不存在就创建。
另外想问大家一个生成静态的问题,就是如果每次生成一个新闻内容页,就创建一次文件夹,是否会很费资源?
<%
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("文件夹创建成功")
%>

...全文
29 点赞 收藏 3
写回复
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
lbcleo 2010-08-09
[Quote=引用 2 楼 chinaxthulang 的回复:]
VBScript code
'========================================
'函数名:FolderExits
'作 用:判断文件夹是否存在
'参 数:Folder ------文件夹路径
'返回值:存在、True,不存在、false
'========================================
Function Folde……
[/Quote]`
回复
ChinaXtHuLang 2010-08-08
'========================================
'函数名: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
回复
SNOYC 2010-08-08
if fso.FolderExists(server.MapPath(".\"&folder&""))=false then
REsponse.write("此文件夹不存在")
end if
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告