Topic: Little Help with Findfile? Possibly

[V-Man]

I'm a little off here and I'm sure it's simple but I need this bit of code to check for the existance of a file (ProjInfo.txt) and if found continue to run and open the file. And if it does not find it in the current path, Alert the user that it does not exist. I hope I explained myself.

Code: [Select]

(setq DV:GETPROJ (strcat (getvar "dwgprefix")))
(setq DV:EXISTS (vl-directory-files DV:GETPROJ "projinfo.txt"))
(if (= DV:GETPROJ nil)
          (alert "\nThe drawing DOES NOT have a the ProjInfo.txt in the job folder!!!!!!!!!")
     (setq filefp (open (strcat (getvar "dwgprefix") "projinfo.txt") "r"))
)
Thanks,

[ronjonp]

Code - Auto/Visual Lisp: [Select]

1. (if (findfile (strcat (getvar 'dwgprefix) "projinfo.txt"))
2.   (alert (strcat (getvar 'dwgprefix) "projinfo.txt found..."))
3.   (alert (strcat (getvar 'dwgprefix) "projinfo.txt not found..."))
4. )

[V-Man]

(if (findfile (strcat (getvar 'dwgprefix) "projinfo.txt"))
  (alert (strcat (getvar 'dwgprefix) "projinfo.txt found..."))
  (alert (strcat (getvar 'dwgprefix) "projinfo.txt not found..."))
)

Thanks ronjonp

I appreciate it.

[ronjonp]

(if (findfile (strcat (getvar 'dwgprefix) "projinfo.txt"))
  (alert (strcat (getvar 'dwgprefix) "projinfo.txt found..."))
  (alert (strcat (getvar 'dwgprefix) "projinfo.txt not found..."))
)

Thanks ronjonp

I appreciate it.

Glad to help