VL-directory-files (디렉토리내에 모든 파일을 리스트화)
(vl-directory-files [directory pattern directories])
해당 디렉토리내에 모든 파일을 리스트화 해줍니다.^^
오잉 함수명빼고 전부 생략이 가능하네여
directory : 디렉토리 이름입니다. 즉.. "E:/도움말" 이런형식 (생략되면 현제도면의 디렉토리)
pattern : 폴더 검색할때 를 생각하시면됩니다. "*" 모든파일 "*.dwg" dwg 파일만 찾아서...
생략되면 "*" 모든 파일입니다.
directories : 해당 리스트화를 할때 아래의 사항을 참고합니다.
- 1 디렉토리 리스트만
0 파일 및 디렉토리 리스트(기본값)
1 파일 리스트만
Example
_$ (vl-directory-files)
("." ".." "Common" "CPDefault17.dwt" "DynBlock" "Image" "Info" "mbs.db" "패치")
;; 활성화면 도면의 폴더내에서 가져옵니다. 확장자가 없는건 폴더겠져.^^
_$ (vl-directory-files "E:/도움말")
("." ".." "2010-acadauto(vba).chm" "2010-acad_alr(AutoLISP).chm" "acadauto(vba-한글).chm" "acad_dxf.chm" "acad_vlr.chm")
;; 주소를 넣으면 해당 주소안에있는 파일 이름을 가져옵니다.
_$ (vl-directory-files "E:/도움말" "acad*.*")
("acadauto(vba-한글).chm" "acad_dxf.chm" "acad_vlr.chm")
;; 해당 디렉토리안에서 검색을 해서 가져오게 됩니다.
_$ (vl-directory-files "E:/도움말" "*")
("." ".." "2010-acadauto(vba).chm" "2010-acad_alr(AutoLISP).chm" "acadauto(vba-한글).chm" "acad_dxf.chm" "acad_vlr.chm")
;; 뒤에 숫자가 없다면 생략이니 기본값은 0 입니다. 0일때는 디렉토리 및 파일을 다 가져오네여.
_$ (vl-directory-files "E:/도움말" "*" -1)
("." "..")
;; -1 이니 파일을 다 버리고 디렉토리만 가져오네여.^^
_$ (vl-directory-files "E:/도움말" "*" 1)
("2010-acadauto(vba).chm" "2010-acad_alr(AutoLISP).chm" "acadauto(vba-한글).chm" "acad_dxf.chm" "acad_vlr.chm")
;; 1 이니 파일리스트만 가져옵니다.^^
출처 : 아키모아 행복한 하루 http://cafe.daum.net/archimore/IP9e/26
'Auto CAD > lisp' 카테고리의 다른 글
VL-string-left-trim (vl-string-right-trim 문자열 제거) (0) | 2019.04.04 |
---|---|
VL-string-trim (지정된 문자열을 원본글자에서 앞 뒤 제거) (0) | 2019.04.04 |
VL-string-translate (문자 문자 1:1 교체하기) (0) | 2019.04.04 |
Vl-string-position (특정문자 위치 찾기) (0) | 2019.04.04 |
VL-string-subst (특정 문자 교체) (0) | 2019.04.04 |