rendered paste body(defun GetFiles(
paths
files
/
rtlist file path thisfile
)
(foreach file files
(foreach path paths
(if (setq thisfile (findfile (strcat path "/" file)))
(setq rtlist (cons (cons thisfile (list (vl-file-systime thisfile))) rtlist))
)
)
)
rtlist
)
;This will return a list of files thus:
;(
;("F:\\acad\\lisp\\temp.lsp" (2006 2 3 15 8 15 16 0))
;("F:\\acad\\lisp\\acaddoc.lsp" (2006 10 3 25 4 31 27 120))
;("M:\\lehi\\acad\\lisp\\acad.lsp" (2006 1 0 22 21 36 59 473))
;("F:\\acad\\lisp\\acad.lsp" (2006 7 4 20 19 45 16 304))
;)