Hola amigos aquí les dejare el código que utilice en el vídeo para crear un archivo zip usando puro código vbscript.
otra como yo tengo windows 10 al parecer solo me funciona en el escritorio, ya lo intente dentro de carpetas y me marca error, desconozco que sera bueno si alguno tiene la solución que la comparta
.......:::::CODIGO:::::.......
dim fso,app,nombre,file,ruta,pross
set fso = createobject("scripting.filesystemobject")
set app = createobject("shell.application")
set shell = createobject("wscript.shell")
nombre = inputbox("Nombre del archivo ZIP","Nombrar") & ".zip"
set pross = shell.exec("mshta.exe ""about:<input type='file' id='file'><script language=""vbscript"">file.click():createobject(""scripting.filesystemobject"").getstandardstream(1).writeline(file.value):close()</script>""")
ruta = pross.stdout.readline
set file = fso.createtextfile(nombre)
file.write("PK" & chr(5) & chr(6) & string(18,chr(0)))
file.close
app.namespace(nombre).copyhere ruta
wscript.sleep 2000
msgbox "Archivo comprimido con Exito",0,"Terminamos"
creo que ya se saben el prosedimiento, solo lo copean lo pegan en el bloc de notas y lo aguardan con la extencion .vbs
bueno saludos Flamer
