Foro de elhacker.net

Hola, tengo 4 dudas de si se puede hacer y como.

1.- se puede mostrar mas de 1 inputbox en una ventana?
1.2- algun codigo como inputbox que me permita arrastrar una carpeta o archivo y automáticamente aparezca la ruta de este como en batch?

2.- como hago para que el vbs me ejecute un archivo y espere hasta el cierre de este para continuar.

3.- algun codigo en vbs que cumpla la misma funcion que "GOTO" en batch?
(ya que solo funciona goto en on error)

4.- algun ejemplo simple de como usar "loop" y "do"

Saludos y desde ya gracias!.

No, InputBox detiene la ejecución del script hasta que se introduzca un dato (o se cancele el input)

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, "Example", 1, "c:\Programs")
If objFolder Is Nothing Then
    Wscript.Quit
End If
wscript.Echo "folder: " & objFolder.title & " Path: " & objFolder.self.path

No lo se


No existe el GoTo en VBS, de todas formas no lo necesitas. El GoTo debería ser eliminado de cualquier lenguaje de programación. En las practicas de la escuela, si mi profesor ve un GoTo te suspende el proyecto. jejej

AA = 1
 
Do
AA = AA +1
	if AA = 5 then Exit Do
Loop
MsgBox AA
 
''''''''''''''''''''''''''''
 
AA = 1
 
While AA <> 7
	AA = AA + 1 
Wend
 
MsgBox AA

gracias por las aclaraciones y el codigo para la carpeta.

pero tengo una duda con lo de loop, mira, te muestro una parte como ejemplo del codigo que quiero que repita.

'HACIA ACÁ REPITE

Dim objFSO, strFile
strFile = appname & "\" & apprun
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strFile) Then

else
msx = msgbox ("el archivo especificado no existe, vuelva a escribir el nombre correctamente")

'QUE REPITA DE ACÁ
end if


lo que pasa, es que no funciona y me tira error.

----------------
una pregunta más, diferencia entre until y while?
Saludos y gracias de nuevo

Solo es posible con hilos...

Dulces Lunas!¡.