topic Re: Create folder using username as folder name in Visual LISP, AutoLISP and General Customization Forum

Create folder using username as folder name

gccdaemon — Tue, 26 Feb 2019 21:34:49 GMT

Don't need anything fancy, but I can't get this to work. I'm sure it's got something to do with strings, but I'm not good at manipulating them. Here is what I have:

(defun C:UDATE  (/ )
	(vl-load-com)
	(vl-mkdir (strcat "C:\\CAD Standards\\UPDATED\\" (getenv "username")))
	(princ)
)

Re: Create folder using username as folder name

devitg — Tue, 26 Feb 2019 23:15:12 GMT

You need to check if such directory exist

"C:\\CAD Standards\\UPDATED\\"

I test with

(vl-mkdir (strcat "C:" (getenv "username")))

It work.

Re: Create folder using username as folder name

rkmcswain — Wed, 27 Feb 2019 00:19:30 GMT

Here is a version that works even if none or part of it exists.

(vl-load-com)
(defun C:UDATE  ( / a b c )
  (setq a "C:\\CAD Standards"
	b "C:\\CAD Standards\\UPDATED\\"
	c (strcat b (getenv "username"))
  )
  (if (not (vl-file-directory-p a))
    (vl-mkdir a)
  )
  (if (not (vl-file-directory-p b))
    (vl-mkdir b)
  )
  (if (not (vl-file-directory-p c))
    (vl-mkdir c)
  )
  (princ)
)

Re: Create folder using username as folder name

devitg — Wed, 27 Feb 2019 12:30:44 GMT

There is any way , to open a dialog box to get the directory , like FINDFILE or some like .??

Re: Create folder using username as folder name

rkmcswain — Wed, 27 Feb 2019 13:00:21 GMT

@devitg - this may do what you want > http://www.lee-mac.com/directorydialog.html

Re: Create folder using username as folder name

devitg — Wed, 27 Feb 2019 13:08:58 GMT

Thanks for it. Just what I need.

Re: Create folder using username as folder name

ronjonp — Wed, 27 Feb 2019 16:01:53 GMT

FWIW .. you don't need to test if each directory exists with vl-mkdir

I would just test the final path like so ( using your code as a base ).

(defun c:udate (/ a b c)
  (setq	a "C:\\CAD Standards\\"
	b (strcat a "UPDATED\\")
	c (strcat b (getenv "username"))
  )
  (foreach d (list a b c) (vl-mkdir d))
  (if (vl-file-directory-p c)
    (print "Success!")
  )
  (princ)
)

Re: Create folder using username as folder name

gccdaemon — Wed, 27 Feb 2019 16:50:30 GMT

So basically each folder needs to be there to create a new folder under it. I knew there was something simple I was missing. Thanks for the assist everyone!