anun1

miércoles, 28 de agosto de 2019

Codigo Crear Un Archivo Zip Usando VBScript

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