Aug 22
Con WinXP y creo que 2000 se puede comprimir el contenido de la carpeta para que ocupe menos espacio en disco cuando la partición es NTFS... no hablo de compresión ZIP.
En este caso voy a comprimir la carpeta MIDir ... para hacer la prueba escoja un directorio y mire el tamaño que tiene y luego ejecute el código y vuelva a mirar el tamaño..... se dará cuenta que fue comprimido bastante.
objWMI = GetObject("winmgmts:\")
cCadWMI = "Select * from Win32_Directory where Name = 'c:\MiDir'"
oDir = objWMI.ExecQuery(cCadWMI)
For Each oCarpeta in oDir
oCarpeta.Compress
Next
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
