WISDOMBAY

WINDOWS SCRIPTING CORNER @ WISDOMBAY

A periodic Section maintained by Pramod S Nair

7.A Windows Script For Compressing a folder on the local machine

Posted on WisdomBay @ 12:25 AM 04-03-2006 | Post by Pramod S Nair

This Windows Script can be used by power users for automating the task of compression of a folder on a local hard disk.
Note : Compression is supported by the OS only on NTFS Partitions

'A Windows Script For Compressing a folder on the local machine 'Compiled by Pramod S Nair 'http://www.wisdombay.com 'Written 12:25 AM 04-03-2006 On Error Resume Next 'Create a WMI Object Set ow = GetObject("winmgmts:\\.\root\cimv2") 'Edit the path given in the below query to meet the folder which you need to compress. strQ = "Select * from Win32_Directory where name = 'd:\\nf'" 'Create a Folder Obejct Set objF = ow.ExecQuery (strQ) For Each objCF in objF ' now loop through each resultant folder object and compress them using the Compress() method 'of folder object r = objCF.Compress 'Now check the return to find the status of the Compress Operation RtMsg = "" Select Case r case 0 RtMsg = "Success" case 2 RtMsg = "Access denied" case 8 RtMsg = "An unspecified failure occurred" case 9 RtMsg = "Invalid name" case 10 RtMsg = "The object specified already exists" case 11 RtMsg = "The file system is not NTFS" case 12 RtMsg = "The platform is not Windows NT or Windows 2000" case 13 RtMsg = "The drive is not the same" case 14 RtMsg = "The directory is not empty" case 15 RtMsg = "There has been a sharing violation" case 16 RtMsg = "The start file specified was invalid" case 17 RtMsg = "A privilege required for the operation is not held" case 21 RtMsg = "A parameter specified is invalid" End Select 'Alert the User with the status Wscript.Echo RtMsg Next 'End of Script

How to use :
1. Copy the code given above to clipboard.
2. Create a new file and name it as you like with a '.vbs' extension.
3. Now you can use this script for automating the task of compressing of a folder on an NTFS partition.