Si la carpeta tiene permisos para poder escribir, entonces es de esta linea... prueba una de estas dos posibilidades y dime si te funciona, si sigue sin funcionarte es posible que esté en un nivel superior de carpetas al que planteo.
Set crearchivo = ScriptObject.CreateTextFile(Server.mappath(".") & "imagenes/"&archivo)
Set crearchivo = ScriptObject.CreateTextFile(Server.mappath(".") & "../imagenes/"&archivo)
Ten en cuenta que el server.mappath te va a terminar con una /
por lo que con lo que tu ponias terminaba con
//imagenes/
