[Subroutine] Folder 생성

;만든이 : 아키모아 정길복님.

;Make directory(folder) Sub_routine

(defun MakeDir (Pathname$ / Drive$ Folder$ Folders@) 

        (vl-load-com) 
        (setq Pathname$ (vl-filename-directory (strcat Pathname$ "\\")))
        (while (/= Drive$ Pathname$)
                (setq Folder$ (substr Pathname$ (1+ (strlen (vl-filename-directory Pathname$)))))
                (if (= (substr Folder$ 1 1) "\\")
                        (setq Folder$ (substr Folder$ 2))
                )
                (setq Folders@ (cons Folder$ Folders@))
                (setq Drive$ Pathname$)
                (setq Pathname$ (vl-filename-directory Pathname$))
        )
        (foreach Folder$ (cdr Folders@)
                (vl-mkdir (strcat Pathname$ Folder$))
                (setq Pathname$ (strcat Pathname$ Folder$ "\\"))
        )
)

 

상기 루틴을 리습 하단에 배치 하시고 리습 본문에

(MakeDir "C:\\ABCD") ....... 이렇게하면 C:루트에 'ABCD'  폴더가 생성됩니다.