for now..i have this...
;| Recherche de fichier .
Note: the hard disk drive must exist and must hace 2 points like this --> c: .
|;
(defun c:recherche_fichier (/ fichier lecteur)
(setq fichier (strcase (getstring "File name to search : "))
lecteur (getstring "Hard drive : ")
)
(command "shell" (strcat "dir " lecteur "\\" fichier "/on /s /b > " lecteur "\\dir.txt"))
(startapp "notepad.exe" (strcat lecteur "\\dir.txt"))
)