Lists all kind of files in a given directory

eachy

2. 
   
3. ;;Lists all kind of files in a given directory
   
4. (defun xdl-fl-dir (path pattenname)
   
5.   (if (= (type pattenname) 'STR)
   
6.     (setq pattenname (list pattenname))
   
7.   )
   
8.   (apply 'append
   
9.          (mapcar '(lambda (x) (vl-directory-files path x))
   
10.                  pattenname
    
11.          )
    
12.   )
    
13. )

<br /> ;;Lists all kind of files in a given directory<br /> (defun xdl-fl-dir (path pattenname)<br />   (if (= (type pattenname) 'STR)<br />     (setq pattenname (list pattenname))<br />   )<br />   (apply 'append<br />          (mapcar '(lambda (x) (vl-directory-files path x))<br />                  pattenname<br />          )<br />   )<br /> )

fsxm

老大的办事速度就是快哦！
刚问这个问题这么快就发上来了！
我改了一下[php]
(defun stol (str x / n lis str)
    (while (setq n (vl-string-search x str))
      (setq lis (cons (substr str 1 n) lis))
      (setq str (substr str (+ 2 n)))
    )
    (reverse (cons str lis))
  )

(defun xdl-fl-dir (path pattenname)
  (setq  pattenname (stol pattenname ";"))
  (vl-remove nil (apply 'append
         (mapcar '(lambda (x) (vl-directory-files path x))
                 pattenname
         )
  ))
)
;;(xdl-fl-dir "c:\" "*.txt;*.bat")
[/php]

leeyuan

楼上两位老大，能否加个参数说明呀

276448402

我是新手
能有注释就好 了