繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp实现检查目录是否存在与建立目录的函数
- ASP
- 资料验证的asp.net程序
- 用ASP、VB和XML建立互联网应用程序(1)
- 用ASP、VB和XML建立互联网应用程序(2)
- 用ASP、VB和XML建立互联网应用程序(3)
- 用ASP、VB和XML建立互联网应用程序(4)
- 用XSL.ASP编辑XML文档
- 一个ASP.NET+XML留言本例子
- 股票报价的WebService之一
- 股票报价的WebService之二
- 股票报价的WebService之三
- 股票报价的WebService之四
- 股票报价的WebService之五
- ASP.NET发送ICQ信息DIY(1)
- ASP.NET发送ICQ信息DIY(2)
- 无组件图文混合上传示例
- 使用AspImage制作图形(一)
- 使用AspImage制作图形(二)
- 一个漂亮的点击计数器
- 取得服务器上用户组列表脚本之VBS版
- 取得服务器上用户组列表的脚本之asp版
ASP 中的 asp实现检查目录是否存在与建立目录的函数
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 157 ::
收藏到网摘: n/a
'-------------------------
'--检查目录是否存在
'----------------------
Function CheckDir(byval FolderPath)
dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(Server.MapPath(folderpath)) then
'存在
CheckDir = True
Else
'不存在
CheckDir = False
End if
Set fso = nothing
End Function
'-------------------------
'--建立目录
'----------------------
Function MakeNewsDir(byval foldername)
dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
fso.CreateFolder(Server.MapPath(foldername))
If fso.FolderExists(Server.MapPath(foldername)) Then
MakeNewsDir = True
Else
MakeNewsDir = False
End If
Set fso = nothing
End Function
评论 (0) All
