si buscas en Google la referencia del código de error verás como se refiere a los permisos de usuario sobre la carpeta (Ejecuta el script como administrador y ya.).
Pero aparte, si no sacas la variable del búcle, no puedes aumentar el valor.
Código
var = 0 do set objfso = createobject("scripting.filesystemobject") set archivotexto = objfso.createtextfile("C:\Users\administrator\desktop\" & var & ".txt",true) archivotexto.writeline "hola mundo" archivotexto.writeblanklines(2) archivotexto.writeline "Odio ir a la escuela" archivotexto.close var = var + 1 loop
Saludos