Create directory list

[Anonymous]

Is there any function in lisp to list a directory's contents?

chad

[Anonymous]

Attached are some files that I dl from cadence mag site. Bill Kramer wrote
them. You can go to the cadence web site and get the full details on how it
runs. I haven't actually used it yet, but you never know when something
like this could be useful.

"Chad" wrote in message
news:f038545.-1@WebX.maYIadrTaRb...
> Is there any function in lisp to list a directory's contents?
>
> chad
>

[Anonymous]

Chad;

Look up the following in the online help (if you're using A2k):

(vl-directory-files [directory pattern directories])

Cheers

"Chad" wrote in message
news:f038545.-1@WebX.maYIadrTaRb...
> Is there any function in lisp to list a directory's contents?
>
> chad
>

[Anonymous]

If you have Express:

;makes multiple levels of directories
(defun mdirs (dir / mkdir pos)
(setq mkdir (substr dir 1 (setq pos (vl-string-position 92 dir 0))))
(while (not (vl-directory-files dir "*.*"))
(setq mkdir (substr dir 1 (setq pos (vl-string-position 92 dir (1+
pos)))))
(if (not (vl-directory-files mkdir "*.*"))
(acet-file-mkdir mkdir)
)
mkdir
)
)

;removes multiple levels of directories until it finds one with contents
(defun rdirs (dir / contents pos) (setq dir (vl-string-right-trim "\\" dir))
(while (> 3 (length (setq contents (vl-directory-files dir "*.*"))))
(if (equal contents '("." ".."))
(acet-file-rmdir dir)
)
(setq dir (substr dir 1 (vl-string-position 92 dir 0 T)))
)
)

--
Eric S. eschneider@jensenprecast.com