Topic: Steering Findfile search

[Krushert]

How do I steer findfile search to look for the needle that is only under haystack "U" and not for the needle that is under haystack "C"?

Code: [Select]

(setq MyDocPrefx (getvar "MYDOCUMENTSPREFIX"))
(setq OldUserFolder1 (vl-filename-directory (findfile (strcat MyDocPrefx "acad.pgp"))))


[BlackBox]

Not sure I understand you fully, but you might try this adaptation:

Code: [Select]

(setq MyDocPrefx (getvar "MYDOCUMENTSPREFIX"))
(setq OldUserFolder1 (vl-filename-directory (findfile (strcat MyDocPrefx "\\acad.pgp"))))

Note the "\\" prefix in front of "acad.pgp" now.

[Krushert]

Tried that.  It upchuck a "bad argument type:  stringp nil" 

[BlackBox]

Tried that.  It upchuck a "bad argument type:  stringp nil" 

That's because your findfile returned nil (meaning acad.pgp was not found).

Perhaps this is a more appropriate test:

Code: [Select]

(if (setq
      path (findfile
             (strcat (setq MyDocPrefx (getvar "MYDOCUMENTSPREFIX"))
                     "\\acad.pgp")))
  (setq OldUserFolder1 (vl-filename-directory path))
  (alert (strcat "ACAD.pgp cannot be found at :"
                 "\n\n"
                 MyDocPrefx)))


[Krushert]

Okay that did not upchuck but it did return your alert message.

That being said, now I know (or believe) that find file is not looking in the sub-folders.  For this particular user, his PGP file is located 2 folders down in his Mydocs folder.

  Each my users ACAD user files are in folders with different names and I am try to correct that with code when I install 2012.

[Lee Mac]

Maybe this might help?

[JohnK]

A few of ElpanovEvgeniy's file routines have helped me several times.

Link:
https://www.theswamp.org/index.php?topic=15186.msg184298#msg184298

[Krushert]

Thanks Guys!

Thanks helped!