'-------------------------
'-检查目录是否存在
'----------------------
FunctionCheckDir (byvalfolderpath)
dimfso
SetFSO = server.CreateObject ("Scripting.FilesystemObject")
Iffso.folderexists (server.mappath (folderPath)) lalu
'存在
Checkdir = true
Kalau tidak
'不存在
Checkdir = false
Endif
Setfso = tidak ada
Fungsi endfungsi
'-------------------------
'-建立目录
'----------------------
FunctionMakenewsDir (byvalfoldername)
dimfso
SetFSO = server.CreateObject ("Scripting.FilesystemObject")
fso.createFolder (server.mappath (foldername))
Iffso.folderexists (server.mappath (foldername)) lalu
MakeNewsDir = Benar
Kalau tidak
MakeNewSdir = false
Endif
Setfso = tidak ada
Fungsi endfungsi