• pavel
  • Восстановленный участник
  • На форуме с 12 октября 2004г.
  • Сообщений: 66
  • Спасибо: 0

Тема: Поиск файла на диске по имени

Есть множество примеров по проверке существования файла или папки, а как найти файл или папку по имени?
"FileSearch" (VB) не работает под Акадом.

  • Игорь
  • Восстановленный участник
  • На форуме с 14 января 2002г.
  • Сообщений: 213
  • Спасибо: 0

Re: Поиск файла на диске по имени

Используй функции dos_search, dos_find из библиотеки DosLib

  • zhuravsky
  • Восстановленный участник
  • На форуме с 19 февраля 2004г.
  • Сообщений: 214
  • Спасибо: 0

Re: Поиск файла на диске по имени

А чем не подходит старая добрая findfile ?

(findfile "c:/Program Files")

  • DMS
  • Восстановленный участник
  • На форуме с 6 октября 2004г.
  • Сообщений: 162
  • Спасибо: 0

Re: Поиск файла на диске по имени

> pavel
Может это не совсем то, делалось не совсем для поиска, но переделать всегда можно.

(defun _FOLDERCONTENT (PATH /)
  (mapcar '(lambda (X) (strcat PATH "\\" X)) (cddr (vl-directory-files PATH)))
  ) ;_ end of defun
(defun _DECOMPOSITION (PATHS /)
  (cond
    ((not PATHS) NIL)
    ((vl-file-directory-p (car PATHS))
     (append (_DECOMPOSITION (_FOLDERCONTENT (car PATHS))) (_DECOMPOSITION (cdr PATHS))))
    ((cdr PATHS) (cons (car PATHS) (_DECOMPOSITION (cdr PATHS))))
    (car PATHS)
    ) ;_ end of cond
  ) ;_ end of defun
(defun QQQ (FOLDERS / FILES)
  (setq FILES (mapcar '(lambda (X) (_DECOMPOSITION (_FOLDERCONTENT X))) FOLDERS))
  ;(length (car FILES))
  ) ;_ end of defun

и пример вызова:

(YOUR_FILEWRITING "C:\\111.txt" (car (QQQ (list "C:\\Program Files\\AutoCAD 2000i"))) "w")

осталось только внедрить свой код, можно и просто использовать 

(member...)

, ковыряясь в FILES из QQQ.

  • pavel
  • Восстановленный участник
  • На форуме с 12 октября 2004г.
  • Сообщений: 66
  • Спасибо: 0

Re: Поиск файла на диске по имени

Всем спасибо - буду разбираться.