For Windows guis
[1/1] from: patrick::philipot::laposte::net at: 21-Nov-2003 8:57
Hi List
A little tip that can be usefull for Windows guis.
I had the task to ZIP (WINZIP) a lot of folders and found no tools to do
that.
So I wrote this little piece of code to build the batch file that will zip
all the folders from the Windows console.
8< - - - - - - - - - - - - - - - - - - - - -
; undocumented WINZIP32 syntax
prog: {"c:\program files\winzip\winzip32.exe" -min -a -r -p }
alldir: read %.
foreach d alldir [
remove back tail d
cmd: rejoin [prog {"} d {.zip" } {"} d {\*.*"}]
write/lines/append %"/d/rebview/test/zipall.bat" cmd
]
8< - - - - - - - - - - - - - - - - - - - - -
The result looks like this:
c:\program files\winzip\winzip32.exe
-min -a -r -p "WD7 XML.zip" "WD7
XML\*.*"
c:\program files\winzip\winzip32.exe
-min -a -r -p "WD7 Fax.zip" "WD7
Fax\*.*"
...
Regards
Patrick