[求助]：如何取得文件夹下面的文件??

舟自横

如何取得文件夹下面的文件,比如:我在D:下面有好多个
DWG文件,如何用LISP的方法取得这些文件名并列表呢?
我用VLAX-GET-PROPERTY函数只能取得文件夹中所包含
文件的数量,...

心梦相随

(vl-directory-files  [directory pattern directories])列出给定目录中的所有文件。
1）参数 directory 为字符串，指定要收集文件的目录。若未指定该参数或参数为 nil，那么vl-directory-files 使用当前目录。
2）参数 pattern 为字符串，包含文件名的 DOS 方式。如果未指定该参数或参数为 nil，vl-directory-files 假定为 "*.*"。
3）directories 为整数型，指定返回的表中是否包含路径名。可以指定下列值之一：
-1  仅列出目录。0   列出文件和目录（缺省值）。1   仅列出文件。

舟自横

THANK YOU,这个我知道.我是想能不能通过Scripting.FileSystemObject
方式去获得...举例:(setq SN(vlax-create-object "Scripting.FileSystemObject"))
;;取得系统信息
(setq FOLDER (vlax-invoke-method SYS 'GETFOLDER "D:\\"))
;;取得D:信息
(SETQ FILE (VLAX-GET-PROPERTY FOLDER "FILES"))
;;;取得文件信息
后面就不行了
只能(VLAX-GET-PROPERTY FILE 'COUNT)
取得文件数量
(VLAX-GET-PROPERTY 'ITEM "FILEANME")
取得具体文件的信息,要知道文件名才行
难道我就不能取得所有文件吗?