Foro de elhacker.net

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