'-----------------------------------------
' - 检查目录是否存在
'-----------------------------
functionCheckdir（byvalfolderpath）
Dimfso
setfso = server.createobject（“ scripting.filesystemobject”）
iffso.folderexists（server.mappath（folderPath））
'存在
checkdir = true
别的
'不存在
checkdir = false
Endif
setfso =没有
最终功能
'-----------------------------------------
' - 建立目录
'-----------------------------
functionMakenewsdir（byvalfoldername）
Dimfso
setfso = server.createobject（“ scripting.filesystemobject”）
fso.createfolder（server.mappath（foldername））
iffso.folderexists（server.mappath（foldername））
makenewsdir = true
别的
makenewsdir = false
Endif
setfso =没有
最终功能