'--检查目录是否存在

'----------------------

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

下一篇：asp在服务器把 XML 转换为 XHTML的实现代码