Your specification of variable $basedir is incorrect. Using \*.* has been
removed.
Also you are using a lot of GOTO statements which aren't necessary. Also we change
your code to reduce them. In our opinion is a script more readable without GOTO's.

code:

---

 break on
 ;
 $basedir="e:\Applications\Kixtart\Test"
 $filename=Dir("$basedir")
 WHILE ($filename <> "") AND (@error = 0)
    IF ($filename <> ".") AND ($filename <> "..") AND (GetFileAttr($basedir+"\"+$filename) & 16)
        ; ? $basedir+"\"+$filename
        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

---

code:

---

 wzzip -a -ex -rp  "c:\windows\INF.zip" "c:\windows\INF" 
 wzzip -a -ex -rp  "c:\windows\SYSTEM.zip" "c:\windows\SYSTEM" 
 wzzip -a -ex -rp  "c:\windows\COMMAND.zip" "c:\windows\COMMAND" 
 wzzip -a -ex -rp  "c:\windows\HELP.zip" "c:\windows\HELP" 
 wzzip -a -ex -rp  "c:\windows\FONTS.zip" "c:\windows\FONTS" 
 wzzip -a -ex -rp  "c:\windows\SendTo.zip" "c:\windows\SendTo" 
 wzzip -a -ex -rp  "c:\windows\WANGSAMP.zip" "c:\windows\WANGSAMP" 
 wzzip -a -ex -rp  "c:\windows\DESKTOP.zip" "c:\windows\DESKTOP" 
 wzzip -a -ex -rp  "c:\windows\JAVA.zip" "c:\windows\JAVA" 
 wzzip -a -ex -rp  "c:\windows\CONFIG.zip" "c:\windows\CONFIG" 
 wzzip -a -ex -rp  "c:\windows\MEDIA.zip" "c:\windows\MEDIA" 
 wzzip -a -ex -rp  "c:\windows\CURSORS.zip" "c:\windows\CURSORS" 
 wzzip -a -ex -rp  "c:\windows\TEMP.zip" "c:\windows\TEMP" 
 wzzip -a -ex -rp  "c:\windows\SYSBCKUP.zip" "c:\windows\SYSBCKUP" 
 wzzip -a -ex -rp  "c:\windows\spool.zip" "c:\windows\spool" 
 wzzip -a -ex -rp  "c:\windows\History.zip" "c:\windows\History" 

---

We have comment the SHELL call to prevent an unexpected result during
a test run.
greetings.