Create folder in "C" Partition

[hanywillim]

i work with main lisp to create a folder on desktop and save drawings in it , now i want to create this folder in C partition:

(setq desktop-dir (strcat (getenv "USERPROFILE") "\\Desktop"))
(vl-mkdir (strcat desktop-dir "\\Cleaned Drawings\\"))
(command "_.SAVEAS" "" (strcat desktop-dir "\\Cleaned Drawings\\" (nth n Files_Folder)) "_Yes")

 Now need to create the folder in this path:
C:\My folder\Cleaned Drawings

Thanks in advance

[paullimapa]

(setq desktop-dir "C:\\My Folder")
(vl-mkdir (strcat desktop-dir "\\Cleaned Drawings\\"))
(command "_.SAVEAS" "" (strcat desktop-dir "\\Cleaned Drawings\\" (nth n Files_Folder)) "_Yes")

[hanywillim]

i run the lisp but get this error:
Path does not exist: C:\My Folder\Cleaned Drawings\
Please verify the correct path was given.

and checked partition "C" there is no folders created yet
i think maybe need a permission to create folder in C or it is something else?

[paullimapa]

You can test to see if this fails to create folder by pasting directly onto AutoCAD command line. Like you stated you may not have permissions to create this on C: since it’s not inside your windows profile 

(setq desktop-dir "C:\\My Folder")
(vl-mkdir (strcat desktop-dir "\\Cleaned Drawings\\"))

[hanywillim]

But i need the code to create the "My Folder" if it is not exist 

[paullimapa]

But like you said you may not have permissions to create this on your C: drive

Perhaps another way to test is to run Windows Explorer and see if you’re successful in creating My Folder in C:

[Sea-Haven]

Just test 1st level. Copy and paste to command line.

(vl-mkdir "C:\\My Folder")

[hanywillim]

it is work 
should i create each folder first by using separated line code like this, or i can create all the path once?

[Sea-Haven]

I tried to make a big sub directory not working. Looks like mkdir only makes 1 level. Maybe try running Mkdir multi times. The other way is using Shell and you can use the old fashioned DOS command MD your directory.

(command "._shell" "MD d:\\localjobs\\fs\\LCFC3\\DESIGN\\DATA")

[Michiel.Valcke]

vl-mkdir can only make one directory at the time, feed it a list of directories and loop through it to make deeper paths

You can do something like this:

(defun MakeMultiDir ( lst / dir)
	(foreach x lst
		(if dir
			(setq dir (strcat dir "\\" x))
			(setq dir x)
        )
		(vl-mkdir dir)
	)
	(princ)
)

(defun c:testmakemultidir ( / )
	(MakeMultiDir (list "c:\\test" "make" "multiple" "directories"))
	(princ)
)