Hey all,well I've produced this, I'm sorry if I've butchered some of your work. Its the only way I'm going to learn the more difficult stuff.
(hope this inserts correctly)
code:
break on
?
;
$basedir="c:\kix\springwood\File Archive 2001\*.*"
$filename=Dir($basedir)WHILE ($filename <> "") AND (@error = 0)
IF ($filename <> ".") AND ($filename <> "..") AND (GetFileAttr($basedir+"\"+$filename) & 16)
;? $basedir+"\"+$filename
GOTO "END"
ENDIF
IF $filename = "." Or $filename = ".."
$filename=Dir()
GOTO LOOP1
ELSE
;? $basedir
;? $filename " - Directory Name"
GOSUB create_zip
$filename=Dir()
;? "GOSUB create_zip"
ENDIF
:LOOP1
LOOP
EXIT
:create_zip
$cmd=" wzzip -a -ex -rp "
$cmd=$cmd+ Chr (34) + "C:\kix\springwood\$filename"+".zip" + Chr (34) +" "+ Chr (34) + "C:\kix\springwood\File Archive 2001\$filename" + Chr (34)
SHELL '%comspec% /c $cmd '
;? $cmd
; "Create Zip String"
?
RETURN
:END
yes it works.............
Phoe.
