'-----------------------------------------
' - 檢查目錄是否存在
'-----------------------------
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 =沒有
最終功能