Hmmm... try this:


break on
;
$basedir="c:\windows"
$filename=dir("$basedir\*")
WHILE ($filename <> "") AND (@error = 0)
 IF ($filename <> ".") AND ($filename <> "..") AND (GetFileAttr($basedir+"\"+$filename) & 16)
  GOSUB "create_zip"
 ENDIF
 $filename=Dir()
LOOP
EXIT
:create_zip
$cmd=" wzzip -a -ex -rp "
$cmd=$cmd+' "$basedir\'+LTRIM(RTRIM($filename))+'.zip" "$basedir\'+LTRIM(RTRIM($filename))+'" '
; SHELL '%comspec% /c $cmd ' ; <++++++++
? $cmd
RETURN

Somethings fishy here though ...

-Shawn

[ 18 December 2001: Message edited by: Shawn ]