You mean something like this?(defun SplitString (str tok / lst n m)
(setq n 0)
(while (setq m (vl-string-search tok str n))
(setq lst (cons (substr str (1+ n) (- m n)) lst)
n (1+ m)
)
)
(reverse (cons (substr str (1+ n)) lst))
)
(defun ForceDirDelim (path / )
(if (wcmatch path "*\\,*/") path (strcat path "\\"))
)
(defun FindFile2 (fn paths / found)
(if (= (type paths) 'STR) (setq paths (SplitString paths ";")))
(while (and (not found) paths)
(setq found (findfile (strcat (ForceDirDelim (car paths)) fn))
paths (cdr paths)
)
)
found
)
BTW, the project folders are saved in registry to a key like this:
HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R18.1\ACAD-9001:409\Profiles\<<Profile Name>>\Project Settings\<<Project Name>>
The Red depends on your ACad version and the green on Vanilla/some other Vertical.
Then the path is contained in RefSearchPath (a semi-colon separated string).