Open path lisp

[andreas7ZYXQ]

Im looking for a lisp that will open a specified path.
I want to use the open command or similar build in autocad not startapp explorer..

defun c:run

and it will open and take me to a directory that looks like C:\xx\xx\xx\xx\xx\xx\xx\xx\xx\

at the moment i spen too much time going through my folders.
Anyone with great ideas?

[Shneuph · Accepted solution]

How many paths do you need to save?  Can you not use the places shortcuts on the left side of the open dialog?

[andreas7ZYXQ]

Of course!

Why make it more advanced than it has to be. Maybe my head just got stuck thinking about lisp 😛 

[Kent1Cooper · Accepted solution]

If you do decide that it would be convenient to have something like a little command name or a menu pick that will take you directly, in one step, into a particular folder, here's a way to do that [adjust the command name and file path to suit]:

;;;  ODXYZ.lsp
;;;  to Open a Drawing in the C:\X\Y\Z Folder
(defun C:ODXYZ ()
  (vla-activate
    (vla-open
      (vla-get-documents
        (vlax-get-acad-object)
      )
      (getfiled "Select drawing:" "C:\\X\\Y\\Z\\" "dwg" 0)
    )
  )
)
(prompt "\nType ODXYZ to open a Drawing in the C:\X\Y\Z Folder.")