[===AAA===]

Всем привет!

Нужно получить список вида:

("D:\\A1\f1.dwg" "D:\\A1\f2.dwg" "D:\\A1\A20\f10.dwg" "D:\\A1\A20\f20.dwg" "D:\\A1\B20\c10.dwg" "D:\\A1\B20\c20.dwg" и т.д.)

где в папке A1 находятся файлы *.dwg и папки A20 и B20,
внутри которых, в свою очередь, тоже есть dwg-файлы.

В АвтоКАДе я для этого запускал системную команду DIR с ключами,
она мне складывала всё найденное в файл, из которого я и забирал,
что мне нужно.

Вопрос:

Как из nanoCAD запустить команду DIR, если это не внешний файл DIR.exe,
а внутренняя команда системы Windows?

Можно, конечно, использовать (vl-directory-files "D:\\A1" "*.dwg" 0), разобрать
полученный список выделить из него папки, составить новый путь, снова всё
перебрать уже на более глубоком уровне вложенности...

А попроще-то можно?

[Сергей812]

Offtop: попроще - на .Net:
string[] lFileNames = Directory.GetFiles(%Путь поиска%, "*.dwg", SearchOption.AllDirectories);

[CTPAHHNK]

А чем DIR из командной строки не устраивает?

Вывод списка файлов и подкаталогов в указанном каталоге.

DIR [drive:][path][filename] [/A[[:]attributes]] [/b] [/C] [/D] [/L] [/N]
[/O[[:]sortorder]] [/P] [/Q] [/R] [/s] [/T[[:]timefield]] [/W] [/X] [/4]

[drive:][path][filename]
Диск, каталог или имена файлов для включения в список.

/A Отображение файлов с указанными атрибутами.
атрибуты D Каталоги. R Файлы, доступные только для чтения
H Скрытые файлы A Файлы, готовые для архивирования
S Системные файлы I Файлы с неиндексированным содержимым
L Точки повторной обработки O Автономные файлы
- Префикс "-" имеет значение НЕ
/B Вывод только имен файлов.
/C Применение разделителя групп разрядов при выводе размеров файлов.
Используется по умолчанию. Чтобы отключить применение разделителя групп разрядов, задайте ключ /-C.
/D Вывод списка в нескольких столбцах с сортировкой по столбцам.
/L Использовать нижний регистр.
/N Новый формат длинного списка, имена файлов выводятся в крайнем правом столбце.
/O Сортировка списка отображаемых файлов.
sortorder N По имени (по алфавиту) S По размеру (начиная с минимального)
E По расширению (по алфавиту) D По дате и времени (начиная с самого старого)
G Начать список с каталогов - Префикс "-" обращает порядок
/P Пауза после заполнения каждого экрана.
/Q Вывод сведений о владельце файла.
/R Отображение альтернативных потоков данных этого файла.
/S Отображение файлов из указанного каталога и всех его подкаталогов.

[===AAA===]

To Сергей812
На .NET - всем устраивает (хороший повод изучить его и даже есть маленькая задача для этого, не спорю)

То CTPAHHNK

DIR тоже всем устраивает, я не знаю, как его из-под nanoCAD запустить (как из-под Автокад - знаю).

[Кулик Алексей aka kpblc]

Код:

[Выделить все]

 (defun fun_browsefiles-in-directory-nested (path mask) 
  (apply (function append) 
         (cons 
           (if (vl-directory-files path mask) 
             (mapcar (function (lambda (x) (strcat (vl-string-right-trim "\\" path) "\\" x))) 
                     (vl-directory-files path mask)
             )
           )
           (mapcar 
             (function 
               (lambda (x) 
                 (fun_browsefiles-in-directory-nested (strcat (vl-string-right-trim "\\" path) "\\" x) mask)
               )
             )
             (vl-remove ".." (vl-remove "." (vl-directory-files path nil -1)))
           )
         )
  )
)