asp实现检查目录是否存在与建立目录的函数

2018-09-06 12:53

阅读:452

  -------------------------
--检查目录是否存在
----------------------
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


评论


亲,登录后才可以留言!