home *** CD-ROM | disk | FTP | other *** search
- resident IU MultiIcons:c/IconUpdate pure
- set > NIL: Path ?
- echo noline "*e[0m"
- if > NIL: not exists $Path
- echo " Ungültiger Pfad, `$path' existiert nicht! Nochmal versuchen...*n"
- skip back PathN
- endif
- echo noline "*n*n Analysis $Path nach alten Schubladen..."
- list > ram:MUL $Path dirs lformat "if exists *"%f%n.info*" *n list > ram:Length *"%f%n.info*" nohead nodates *n search > NIL: ram:Length 1233 *n if not warn *n else *n search > NIL: ram:Length 2625 *n if not warn *n else *n IU > NIL: cwn Update-Icons/def_Drawer.info *"%f%n.info*" *n endif *n endif *nendif*n"
-