Mensajes

[Inputbox]

Bueno, con respecto a tu problema de 1 + 1 = 11, copio una respuesta que he dejado en otro lado

Tu problema es el siguiente:

En vbs los tipos de variables no se definen como en otros lenguajes, como ser en C o en VB, sino que los tipos se autodefinen en virtud del contenido de la variable, entonces, Inputbox devuelve un valor de tipo TEXTO, pero cuando haces las operaciones, al ver que hay un simbolo de multiplicación, división, resta, etc, vbs se da cuenta de que son números y realiza las operaciones como tal.

Que ocurre entonces con el símbolo de +?, que se utiliza para concatenar texto, al igual que &, así que vbs piensa que son texto y el resultado es el siguiente:

Ej:

Código (vb) [Seleccionar] Expandir

variable1 = "primero"
variable2 = "segundo"
Msgbox variable1 + variable2

Es decir, variable tipo texto + variable tipo texto = Frase

Para que calcule correctamente debes de convertir ese texto en NÚMEROS (entero), para lo cual puedes utilizar cint (también existen otras como CBool , CByte , CCur , CDate , CDbl , CLng , CSng , CStr )

En el caso del ejemplo anterior

Código (vb) [Seleccionar] Expandir

data3 = cint(data1) + cint(data2)

En lo que se refiere a tu segunda pregunta, el problema con el símbolo de multiplicar (*), tu problema es que esta mal escrito ...

If operador = "+" or operador = "-" or opeardor = "*" or operador = "/" then

Saludos

Como te había dicho, he estado revisando tu script y aparentemente no tiene errores, salvo que al principio del script debes de poner una pausa, como lo había hecho en el mío, ya que de este modo cuando nuestro script ejecuta a su copia, la copia le da tiempo de terminar antes de comenzar, sino "chocan".

De cualquier manera no funciona como debe y no veo el problema , igual lo voy a seguir mirando

[Vbsedit]

Nah! eso no es un entorno, es un bloc de notas al que le han agregado un par de botones.

Prueba Vbsedit ...

Saludos 

Lo que te ocurre es que el primer movefile te sirve, para a la segunda ya no encuentra la referencia porque lo busca en el lugar de origen 

Por esto es mejor utilizar copyfile para copiar en lugar de mover, mira el siguiente script como ejemplo

Código (vb) [Seleccionar] Expandir

set objfso = createobject("scripting.filesystemobject")
set objshell = createobject("wscript.shell")
wscript.sleep 5000

OScript = wscript.scriptfullname
ONameScript = wscript.scriptname

DirEjUno = "D:\"
DirEjDos = "C:\"


If oScript = DirEjDos & ONameScript then
objfso.copyfile oscript, DirEjUno & ONameScript
wscript.sleep 2000
objshell.run DirEjUno & ONameScript
Else
objfso.copyfile oscript, DirEjDos & ONameScript
wscript.sleep 2000
objshell.run DirEjDos & ONameScript
End if

Wscript.sleep 1000
objfso.deletefile OScript

Ponlo en el C: o D: y fijate como alterna entre uno y otro a intervalos de 5 segundos  , ten en cuenta que este script se podría mejorar MUCHISIMO, pero lo he hecho rapidamente para que simplemente entiendas el concepto, además de que con el copy, queda respondido lo de si un vbs puede crear otro 

Saludos

Sip, esta en el tuto porque viene en las referencias oficiales (las de Microsoft), pero al menos a mi nunca me ha servido 

Saludos

Buenas ...

Te he separado el tema para poder responder mejor las preguntas que tengas 

Como es eso de que quieres mover el script opr varias carpetas?

Tu script no lo vas a poder mover, ... porque se encuentra en uso .. como cuando tenemos un archivo de word por ejemplo y no lo puedes cambiar de directorio por estar en uso, .. si podrás copiarlo .. pero no moverlo 

Saludos

A que te refieres con "¿Como relaciono ..." ?
Se supone que la relación aparece cuando realizas el Select Case, Case 1, Case 2, Case 3, etc

De lo contrario puedes crear un diccionario y tener los "elementos asociados", pero el resto del código cambiaría (ya no sería un Select Case)

Saludos

Tienes tarea verdad? porque es el más que clásico ejercicio que le ponen a todo el mundo cuando comienzan con los condicionales

Código (vbnet) [Seleccionar] Expandir

Select Case Media
Case 10
textbox.Text = "Eres un crack"
Case 9
textbox.Text = "Te queda muy poco"
Case n
'etc
Case else
End Select

Y ya, lo que preguntas esta en el primer capítulo de cualquier libro

Saludos

Ups ... ya lo había escrito, así que no lo iba a borrar XD

[Programación VB]

Creo que alguien lo ha planteado alguna vez, pero quizás me equivoque

Creo que no es mala idea lo de poner algo como:

Programación VB
VB6 (no .NET)

Saludos

[Personas]

Repito .. depende del caso! Mira la siguiente tabla

Personas

Nombre	Edad
Luis	20
Carlos	14
Damian	20
Jose	17

Como listarías los Nombres de quienes tienen 20 años de edad y cuyo nombre comienza por "D", es decir, en el caso de que su nombre comience por "D", entonces hay que ver si tienen 20 años, es decir, si se cumple la primera condición, entonces debe de cumplirse la segunda?

Código (sql) [Seleccionar] Expandir

SELECT Nombre
FROM Personas
WHERE Left(Nombre,1)='D' AND Edad=20

Pero como digo, depende de como este planteado el caso, en algún caso le servirá un IF, y en otros un simple AND

Saludos

P.D: igual creo que lo que busca es el IF XD