'-----------------------
'-检查目录是否存在
'----------------------
FunctionCheckdir (ByvalFolderPath)
Dimfso
setfso = server.createObject ("scripting.filesystemObject")
iffso.folderexists (server.mappath (FolderPath)) ثم
'存在
checkdir = صحيح
آخر
'不存在
checkdir = خطأ
Endif
setfso = لا شيء
الوظيفية
'-----------------------
'-建立目录
'----------------------
وظيفة jakenewsdir (ByvalFolderName)
Dimfso
setfso = server.createObject ("scripting.filesystemObject")
fso.createfolder (server.mappath (المجلد))
iffso.folderexists (server.mappath (المجلد)) ثم
makenewsdir = صحيح
آخر
makenewsdir = خطأ
Endif
setfso = لا شيء
الوظيفية