'-------------------------
'-检查目录是否存在
'-----------------------
FunctionCheckdir (byvalfolderPath)
dimfso
Setfso = server.createObject ("scripting.filesystemobject")
Iffso.folderexists (server.mappath (folderpath))
'存在
CheckDir = true
Еще
'不存在
CheckDir = false
Эндиф
Setfso = ничего
Конечная функция
'-------------------------
'-建立目录
'-----------------------
Functionmakenewsdir (byvalfoldername)
dimfso
Setfso = server.createObject ("scripting.filesystemobject")
fso.createfolder (server.mappath (foldername))
Iffso.folderexists (server.mappath (foldername))
Makenewsdir = true
Еще
Makenewsdir = false
Эндиф
Setfso = ничего
Конечная функция