asp建立文件夹的函数

'建立文件夹的函数2：
Sub CreateFolder(strFolder,ifok)
    '首选判断要建立的文件夹是否已经存在
    Dim strTestFolder, objFSO
   IF Ifok<>"" Then
   strFolder="../"&strFolder
   End IF
    strTestFolder = Server.Mappath(strFolder)
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    ' 检查文件夹是否存在
    If objFSO.FolderExists(strTestFolder) Then
     response.write "<h1><font color=red>该文件夹已经存在！</font></h1>"
    Else
     strTestFolder = Server.Mappath(strFolder)
    ' 建立文件夹
      objFSO.CreateFolder(strTestFolder)
      Set objFSO = Nothing
    End If
End Sub