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
Mostrar Mensajes
