'-----------------------------------------
' - 检查目录是否存在
'-----------------------------
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 =没有
最终功能