topic geting the sub folder in Visual LISP, AutoLISP and General Customization Forum

geting the sub folder

Anonymous — Sat, 10 Jun 2006 07:37:06 GMT

hi
how can i get the first sub folder leaving the root direct
Thanks

Re: geting the sub folder

devitg — Sun, 11 Jun 2006 16:12:32 GMT

from the acad help
(vl-directory-files [directory pattern directories])

Arguments

directory

A string naming the directory to collect files for; if nil or absent, vl-directory-files uses the current directory.

pattern

A string containing a DOS pattern for the file name; if nil or absent, vl-directory-files assumes "*.*"

directories

An integer that indicates whether the returned list should include directory names. Specify one of the following:

–1 List directories only.

0 List files and directories (the default).

1 List files only.

Re: geting the sub folder

Anonymous — Sun, 11 Jun 2006 16:38:33 GMT

;;;str2list by John Uhden, as posted to the adesk customization newsgroup
;;; renamed to Split to mimic VB(A) function
(defun Split (str pat / i j n lst)
(cond
((/= (type str)(type pat) 'STR))
((= str pat)'(""))
(T
(setq i 0 n (strlen pat))
(while (setq j (vl-string-search pat str i))
(setq lst (cons (substr str (1+ i)(- j i)) lst)
i (+ j n)
)
)
(reverse (cons (substr str (1+ i)) lst))
)
)
)

(setq path "C:\\Program Files\\Office\\Word\\Test")
;;gets second folder in path, where (nth 0) is the drive:
(setq 2nd (nth 2 (Split path "\\")))

wrote in message news:5202098@discussion.autodesk.com...
hi
how can i get the first sub folder leaving the root direct
Thanks