<% strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & " !\\" & strComputer & "\root\cimv2") Set colFolders = objWMIService. ExecQuery _ ("Select from Win32_Directory where name = 'c:\\Scripts'") For Each objFolder in colFolders errResults = objFolder. Compress Next %> Gördüğünüz gibi yukarıda C:\scripts klasörü seçilmiş siz oraya istediğiniz klasörü yazabilirsiniz. Ve sonra başlasın sıkıştırma.