ASP implementation to check whether the directory exists and create a directory function _ application techniques

'-------------------------
'--check if the directory exists
'----------------------
Function Checkdir (ByVal folderpath)
Dim fso
Set FSO = Server.CreateObject ("Scripting.FileSystemObject")
If FSO. FolderExists (Server.MapPath (folderpath)) Then
' Existence
Checkdir = True
Else
' does not exist
Checkdir = False
End If
Set FSO = Nothing
End Function

'-------------------------
'--Create a directory
'----------------------
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