VBS Acabar script

[jalbtercero]

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

Código (vb) [Seleccionar] Expandir


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


[Eleкtro]

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...

Código (vb) [Seleccionar] Expandir

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

[jalbtercero]

Gracias pero por alguna razon cuando intento evaluar con comillas dobles me da error y lo tengo que poner sin comillas