[ayuda] vbSCTIPT (inputbox, ventanas, goto, loop ... )

[stifmstr]

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

[Mad Antrax]

1.- se puede mostrar mas de 1 inputbox en una ventana?

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

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?

Código (vb) [Seleccionar] Expandir

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

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

No lo se

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

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

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

Código (vb) [Seleccionar] Expandir

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

[stifmstr]

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

Código (vb) [Seleccionar] Expandir

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

Código (vb) [Seleccionar] Expandir

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

[BlackZeroX]

1.- se puede mostrar mas de 1 inputbox en una ventana?

Solo es posible con hilos...

Dulces Lunas!¡.