Ayuda con VBScript

Si lo que quieres es utilizar WinZip, posiblemente esto te sea de utilidad:

WinZip Command Line Support Add-On 1.1
http://www.winzip.com/prodpagecl.htm

Aquí tienes además un ejemplo (sacado de
http://dbforums.com/arch/196/2002/9/490798) que utiliza compact.exe ("HOW
TO: Use the COMPRESS, COMPACT, and EXPAND Commands to Compress and Expand
Files and Folders in Windows 2000"
http://support.microsoft.com/defaul...mp;sd=tech) para
comprimir ficheros más antiguos que X días:

"
' folder to start search in
path = "W:\tst"
' compress files older than 7 days
compressdate = date() - 7

arFiles = Array()
set fso = createobject("scripting.filesystemobject")
set wshshell = createobject("WScript.Shell")

SelectFiles path, compressdate, arFiles, true

nCompressed = 0
for n = 0 to ubound(arFiles)
cmdline = "compact /c " & arFiles(n)
iRC = wshshell.run(cmdline, 0, True)

if iRC <> 0 then
wscript.echo "Unable to compress: " & arFiles(n).path & vbCrLf_
& "compact.exe returned error #: " & iRC
else
nCompressed = nCompressed + 1
end if
next

msgbox nCompressed & " of " & ubound(arFiles)+1 _
& " eligible files were compressed"


sub SelectFiles(sPath,vCompressdate,arFilesToCompress,bIncludeSubFolders)

'select files to add to array...
set folder = fso.getfolder(sPath)
set files = folder.files

for each file in files
' uses error trapping around access to the
' Date property just to be safe
dtlastmodified = null

on error resume Next
dtlastmodified = file.datelastmodified
on error goto 0

if not isnull(dtcreated) Then
if dtlastmodified < vCompressdate then
count = ubound(arFilesToCompress) + 1
redim preserve arFilesToCompress(count)
set arFilesToCompress(count) = file
end if
end if
next

if bIncludeSubFolders then
for each fldr in folder.subfolders
SelectFiles fldr.path,vCompressdate,arFilesToCompress,true
next
end if
end sub
"

Un saludo,

Alejandro Campos Magencio [MS]

Este mensaje se proporciona "como está" sin garantías de ninguna clase, y no
otorga ningún derecho.
"Carlos" wrote in message
news:021101c4241b$e0a71620$

Amigos:

Quiero crear un VBScript que agarre una carpeta y la
comprima con winzip y le ponga un password. Alguien tiene
una idea de como puedo hacerlo. Espero me puedan ayudar.
Gracias.