Topic: How do I find the location of MyDocuments folder?

[ronjonp]

This is where I was going with it:

(setq olduserfolder1 (vl-filename-directory (findfile "acad.pgp")))
(substr olduserfolder1 1 (vl-string-position (ascii "\\") olduserfolder1 0 t))

[ronjonp]

Ted you can also use something like this if you know how many folders to chop off the end. Gives you a bit more flexibility.

Code: [Select]

(defun _chop (string delimeter #2chop / n)
  (setq n -1)
  (while
    (and (setq p (vl-string-position (ascii delimeter) string 0 t)) (< (setq n (1+ n)) #2chop))
     (setq string (substr string 1 p))
  )
  string
)

;;Little test

  (setq n 0)
  (repeat 10 (alert (_chop (vl-filename-directory (findfile "acad.pgp")) "\\" (setq n (1+ n)))))

[Krushert]

Thanks guys. That gives me something to chew on tomorrow while I am work.

[Lee Mac]

Another for fun:

Code: [Select]

(defun _chop ( dir n / p )
  (if (and (setq p (vl-string-position 92 (vl-string-right-trim "\\" dir) 0 t)) (< 0 n))
    (_chop (substr dir 1 p) (1- n))
    dir
  )
)


Code: [Select]

(setq n 0) (repeat 10 (print (_chop (findfile "acad.pgp") (setq n (1+ n)))))

[CAB]

(findfile ".") is interesting.

This goes back to the days of DOS. Every directory (folder) contains two "files" - A single dot represents the "current" directory (folder); two dots represents the parent of the current directory (folder), i.e., the part of the path returned by single dot with the current directory chopped off. And while that is initally the "Start in" folder listed in the ACAD shortcut, some commands, such as SAVEAS, can change the current directory to whatever directory is selected for the "Save to". This can be very bothersome when some user settings are predicated on the current directory always being the Start in folder.

Late to the party but thought all may find this interesting.
From an old thread, not mine.

I noticed a long time a go to, that findfile behaves quite rare... here are
some of the non-document stuff I found and maybe others here already know.

(findfile "c:\\blocks\\122d\\12EBED01.DWG") ;;ok

(findfile "c:\\blocks\\122d\\") ;;wrong

(findfile "c:\\blocks\\122d\\.") ;;ok

;; find path...
(findfile "c:\\blocks\\ada\\...")
"C:\\blocks\\ada\\"

(findfile "c:\\blocks\\ada\\..")
"C:\\blocks"

;; get current directory...
(findfile "cd\\..")
"C:\\Program Files\\AutoCAD 2000i"

;; get main directory...
(findfile "c:..")
"C:\\Program Files"

;; get the root...
(findfile "\\.")
(findfile "/..")
(findfile "\\..")
"C:\\"

(findfile "\\program files\\autocad 2000i.")
"C:\\program files\\autocad 2000i"

;; get current directory...
(findfile "cd\\..")
"C:\\Program Files\\AutoCAD 2000i"

;; get main directory...
(findfile "c:..")
"C:\\Program Files"

;; get the root...
(findfile "\\.")
"C:\\"


;; for a particular folder
(if (setq path (findfile "acetutil.fas"))
  (vl-filename-directory path))

"C:\\Program Files\\AutoCAD 2000i\\express"

[Lee Mac]

Interesting CAB - thanks 

[alanjt]

Very interesting. Thanks for sharing, Alan.

[Krushert]

Very interesting. Thanks for sharing, Alan.

Like he said.  Thanks CAB

[CAB]

Quite welcome.