Lisp file to check if files exist if not check go to next command

[Anonymous]

Is there a way of checking if a file/directory exists if it does do something if not go to next command ? I have got a lisp file that set's up the file paths and loads a enterprise customization file but there are paths that are different depending on where things are installed e.g. different for 64bit to 32bit and there are 2 different install folder I know that it can be done in a batch file to run things but that doesnt help i need it to run from within autocad for it to setup the support paths Using profiles is not an option because we dont want to remove the tools that the users has got loaded on there profile unless they are using the unnamed profile there stuff doesnt come though e.g. tool bars

[hmsilva · Accepted solution]

Welcome to the Autodesk Discussion Groups, makepeace1

Try

(if (findfile "c:/your/directory/path")
  (do something);; if true
  (go to next command);; if not
  )

HTH

Henrique

[Anonymous]

Just thougth i would put this inacse somone else was trying to do this but this is how i got it to add the support paths if the file did exist

(vl-load-com)(setq *files* (vla-get-Files (vla-get-Preferences (vlax-get-acad-object))))
(if (findfile "\\Program Files\\folder1\\Acad")
(vla-put-SupportPath *files* (strcat (vla-get-SupportPath *files*)
";"
"\\Program Files\\folder1\\acad;"
"\\Program Files\\folder2\\acad;"
 (princ "not there");; if not

[gccdaemon]

That's a great idea to autoload that routine. I've get several individuals who are on laptops. All our standards are located on our server, and if the take the laptops home, a lot of customizations get blitzed because they don't connect to the VPN first. Could you supply your routine? I would like to modify what you have to check file dates and copy newer files from the server to a local folder on their their drives when they load autocad.

[Lee_Mac]

---

@Anonymous wrote:

..this is how i got it to add the support paths if the file did exist

---

You may find these functions of interest in this respect: Support File Search Path Functions

Lee

[Anonymous]

This is what i did to get it working for me

(vl-load-com)(setq *files* (vla-get-Files (vla-get-Preferences (vlax-get-acad-object))))
(if (findfile "\\Program Files\\folder1\\Acad")
(vla-put-SupportPath *files* (strcat (vla-get-SupportPath *files*)
";"
"\\Program Files\\folder1\\acad;"
"\\Program Files\\folder2\\acad;"
 (princ "not there");; if not

(vl-load-com)(setq *files* (vla-get-Files (vla-get-Preferences (vlax-get-acad-object))))
(if (findfile "\\Program Files\\diffrentfolder1\\Acad")
(vla-put-SupportPath *files* (strcat (vla-get-SupportPath *files*)
";"
"\\Program Files\\diffrentfolder1\\acad;"
"\\Program Files\\diffrentfolder2\\acad;"
 (princ "not there");; if not

Also did the same with the enterprise load

(vl-load-com)(setq *files* (vla-get-files (vla-get-preferences (vlax-get-acad-object))))
(if (findfile "\\Program Files\\Afolder\\Acad")
(vla-put-EnterpriseMenuFile *files* "\\Program Files\\AFOLDER\\Acad\\CUIXFILE")
(princ "not there");; if not
)