Try this. This goes through the alphabet, looking for all drives that have a /lisp/ directory, and then it loads all the lisps in that directory. I don't think that's entirely what you want, but it's a start.
Code:(defun c:loadlots( / a b c) (foreach fv1 (abc) (if (setq a (vl-directory-files (strcat fv1 ":/lisp/") "*.lsp")) (foreach fv2 a (load (strcat fv1 ":/lisp/" fv2)) ) ) ) (princ) ) (defun abc( / a b) (setq a 64) (repeat 26 (setq b (cons (chr (setq a (1+ a))) b))) b )




Reply With Quote
Bookmarks