tiene mucho que deje esto del scripting y ando retomando lo que sabia, así que hago códigos tontos como un loop que cree txt infinitas, pero me da un error.:
"Línea: 5
Caractér: 1
Error: Permiso denegado
Código: 800A0046"
Les dejo aqui el código
do
dim var
var = 0
set objfso = createobject("scripting.filesystemobject")
set archivotexto = objfso.createtextfile("C:\Users\****\desktop\&var.txt",true)
archivotexto.writeline "hola mundo"
archivotexto.writeblanklines(2)
archivotexto.writeline "Odio ir a la escuela"
archivotexto.close
var = var + 1
loop
Y tengo otra duda, me gustaría que los archivos creados se llamaran 0,1,2,3, así que utilicé el & var para citar el valor de la variable, el cual iria aumentando y crearía infinitos archivos del 0 hasta donde llegue, aun así me parece que está mal el código independientemente del error de permiso denegado.
¿A qué se debe esto del permiso denegado?
¿Cómo puedo hacer que cree archivos infinitos de texto citando el valor de var?
Saludos!!
Prueba así, no se si será el único fallo, pero bueno.
Citarset archivotexto = objfso.createtextfile("C:\Users\****\desktop\"&var&".txt",true)
No hay ningún error en esa línea, sin tener en cuenta que la variable no la puedes usar entre comillas, pero el código funciona,
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.
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
Esto fue demasiado extraño, saqué la declaración de var del búcle, y corregí la sintaxix para citar &var& y ya funcionó, no tuve que ejecutar como administrador.
Muchas gracias!