code:

---

break on
call \\a06\logon\udf.kix

$zipcmd	="?"
$source	="c:\drivers\chipset"
$temp	="c:\ziptemp"
$dest	="$desktop\zip"

if exist($source)
	if not exist("$temp")	makepath("$temp")		endif
	$d=dir($source)
	while not @error
		shell'%comspec% /c $zipcmd "$source\$d" "$temp\$d.zip"
		$d=dir()
		loop
	if not exist("$dest")	makepath("$dest")		endif
	copy "$temp\*.zip" "$dest"
	if not @error		del "$temp\*.zip"	endif
	endif

---