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