asp 建立文件夹 FSO

sub CreateAFolder(fileName)
      Dim fso 
         set fso = server.createobject("scripting.filesystemobject")
        if fso.FolderExists(server.MapPath(""&fileName&""))=false then               
          fso.createfolder server.mappath(fileName)
            response.write "已经建立了"&fileName
        else
            response.write fileName&"已存在"
        end if
End Sub
Sub DeleteAFolder(file) 
        Dim fso 
        set fso = server.createobject("scripting.filesystemobject")
        fso.DeleteFolder server.mappath(file)
        response.write "已经删除了"&file
End Sub