Great

>Hi Greg. Many thanks for the input. I have worked out a solution as well.
>
>
>
>
>>Wait, here a better version. It work vary fast.
>>
>>

>>* Program:     WMI_FOLDER2.PRG
>>* Description:
>>* Created:     08/25/2005
>>* Developer:   Gregory L Reichert
>>* Resource:    http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_directory.asp
>>*------------------------------------------------------------
>>SET STEP ON
>>
>>LOCAL lcComputer, loOutParams, loWMIService
>>
>>lcComputer = "."
>>loWMIService = GetObject("winmgmts:\\" + lcComputer + "\root\CIMV2")
>>
>>* Obtain the definition of the class.
>>objShare = loWMIService.Get("Win32_Directory")
>>
>>* Execute the method and obtain the return status.
>>* The OutParameters object in objOutParams
>>* is created by the provider.
>>loOutParams = loWMIService.ExecMethod( "Win32_Directory.Name='C:\\temp'", "Compress")
>>
>>? loOutParams.ReturnValue
>>
>>loOutParams = loWMIService.ExecMethod( "Win32_Directory.Name='C:\\temp'", "Uncompress")
>>
>>? loOutParams.ReturnValue
>>
>>RETURN
>>
>>

>>
>>
>>
>>
>>>>Hi All. What is the WSH command to compress a folder?
>>>
>>>This may not use the WSH classes, but it does do the job.
>>>
>>>

>>>* Program:     WMI_FOLDER.PRG
>>>* Description: Compress and Uncompress folders
>>>* Created:     08/25/2005
>>>* Developer:   Gregory L Reichert
>>>* Resource:    http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_directory.asp
>>>*------------------------------------------------------------
>>>
>>>SET STEP ON
>>>IF NOT DIRECTORY("c:\temp")
>>>	MD c:\Temp
>>>	STRTOFILE("Hello World", "c:\temp\Test.txt")
>>>endif
>>>
>>>clear
>>>
>>>LOCAL lcComputer, lcolFolder, loObj, loWMIService
>>>
>>>lcComputer = "."
>>>loWMIService = GetObject("winmgmts:" +"{impersonationLevel=impersonate}!\\"+lcComputer+ "\root\cimv2")
>>>lcolFolder = loWMIService.ExecQuery ("Select * from Win32_Directory where Caption='c:\\Temp'")
>>>For Each loFolder in lcolFolder
>>>	?
>>>  	? "AccessMask=",loFolder.AccessMask
>>>  	? "Archive=",loFolder.Archive
>>>  	? "Caption=",loFolder.Caption
>>>  	? "Compressed=",loFolder.Compressed
>>>  	? "CompressionMethod=",loFolder.CompressionMethod
>>>  	? "CreationClassName=",loFolder.CreationClassName
>>>  	? "CreationDate=",loFolder.CreationDate
>>>  	? "CSCreationClassName=",loFolder.CSCreationClassName
>>>  	? "CSName=",loFolder.CSName
>>>  	? "Description=",loFolder.Description
>>>  	? "Drive=",loFolder.Drive
>>>  	? "EightDotThreeFileName=",loFolder.EightDotThreeFileName
>>>  	? "Encrypted=",loFolder.Encrypted
>>>  	? "EncryptionMethod=",loFolder.EncryptionMethod
>>>  	? "Extension=",loFolder.Extension
>>>  	? "FileName=",loFolder.FileName
>>>  	? "FileSize=",loFolder.FileSize
>>>  	? "FileType=",loFolder.FileType
>>>  	? "FSCreationClassName=",loFolder.FSCreationClassName
>>>  	? "FSName=",loFolder.FSName
>>>  	? "Hidden=",loFolder.Hidden
>>>  	? "InstallDate=",loFolder.InstallDate
>>>  	? "InUseCount=",loFolder.InUseCount
>>>  	? "LastAccessed=",loFolder.LastAccessed
>>>  	? "LastModified=",loFolder.LastModified
>>>  	? "Name=",loFolder.Name
>>>  	? "Path=",loFolder.Path
>>>  	? "Readable=",loFolder.Readable
>>>  	? "Status=",loFolder.Status
>>>  	? "System=",loFolder.System
>>>  	? "Writeable=",loFolder.Writeable
>>>	
>>>	? loFolder.Compress()			&& 0 if successful.
>>>	? loFolder.Uncompress() 			&& 0 if successful.
>>>	EXIT 	
>>>	
>>>NEXT
>>>
>>>RETURN
>>>

>>>
>>>P.S. It does take a little time for it to locate the folder at the FOR EACH statement.