asp实现检查目录是否存在与建立目录的函数
2018-09-06 12:53
阅读：455
-------------------------
--检查目录是否存在
----------------------
FunctionCheckDir(byvalFolderPath)
dimfso
Setfso=Server.CreateObject(Scripting.FileSystemObject)
Iffso.FolderExists(Server.MapPath(folderpath))then
存在
CheckDir=True
Else
不存在
CheckDir=False
Endif
Setfso=nothing
EndFunction
-------------------------
--建立目录
----------------------
FunctionMakeNewsDir(byvalfoldername)
dimfso
Setfso=Server.CreateObject(Scripting.FileSystemObject)
fso.CreateFolder(Server.MapPath(foldername))
Iffso.FolderExists(Server.MapPath(foldername))Then
MakeNewsDir=True
Else
MakeNewsDir=False
EndIf
Setfso=nothing
EndFunction
下一篇：显示在线人数
评论
亲，登录后才可以留言！