Buenas tengo este script pero cuando escribo fin se cierra la pestaña pero continua con el codigo y ejecuta la parte donde te pregunta donde quieres crear el archivo
set obj = createobject("scripting.filesystemobject")
Do
elc1 = InputBox("Quieres archivos o carpetas:","alex","",1000,5000)
if elec1 = archivos then
elec2 = InputBox("Escribe la ruta y el nombre del archivo con la extension")
obj.createtextfile(elec2)
elseif elec1 = carpetas then
elec3 = InputBox("Escribe la ruta y el nombre de la carpeta")
obj.createfolder(elec3)
elseif elec1 = fin then
WScript.Quit
End if
Loop
Hola.
No uso VB for Applications, pero no creo que esa condicional se esté evaluando correctamente... prueba a añadirle comillas dobles.
EDITO: Aparte de eso, la variable se llama elc1, pero tu estás intentando evaluar una variable inexistente con nombre elec1, corrígelo en tu código...
elec1 = LCase( InputBox("Quieres archivos o carpetas:","alex","",1000,5000) )
if elec1 = "archivos" then
...
elseif elec1 = "carpetas" then
...
elseif elec1 = "fin" then
WScript.Quit(0)
End if
Saludos
Gracias pero por alguna razon cuando intento evaluar con comillas dobles me da error y lo tengo que poner sin comillas