'------------------------- '--检查目录是否存在 '---------------------- Function CheckDir(byval FolderPath)     dim fso     Set fso = Server.CreateObject("Scripting.FileSystemObject")     If fso.FolderExists(Server.MapPath(folderpath)) then     '存在         CheckDir = True     Else     '不存在         CheckDir = False     End if     Set fso = nothing End Function '------------------------- '--建立目录 '---------------------- Function MakeNewsDir(byval foldername)     dim fso     Set fso = Server.CreateObject("Scripting.FileSystemObject")         fso.CreateFolder(Server.MapPath(foldername))         If fso.FolderExists(Server.MapPath(foldername)) Then            MakeNewsDir = True         Else            MakeNewsDir = False         End If     Set fso = nothing End Function