asp实现检查目录是否存在与建立目录的函数

1. '-------------------------  
2. '--检查目录是否存在  
3. '----------------------  
4. Function CheckDir(byval FolderPath)  
5.     dim fso  
6.     Set fso = Server.CreateObject("Scripting.FileSystemObject")  
7.     If fso.FolderExists(Server.MapPath(folderpath)) then  
8.     '存在  
9.         CheckDir = True  
10.     Else  
11.     '不存在  
12.         CheckDir = False  
13.     End if  
14.     Set fso = nothing  
15. End Function  
16.  
17. '-------------------------  
18. '--建立目录  
19. '----------------------  
20. Function MakeNewsDir(byval foldername)  
21.     dim fso  
22.     Set fso = Server.CreateObject("Scripting.FileSystemObject")  
23.         fso.CreateFolder(Server.MapPath(foldername))  
24.         If fso.FolderExists(Server.MapPath(foldername)) Then  
25.            MakeNewsDir = True  
26.         Else  
27.            MakeNewsDir = False  
28.         End If  
29.     Set fso = nothing  
30. End Function