Creating new folders not working

[pixel8er]

Hi all

 

I'm trying to use lisp to create a new directory in my homedrive - but it's not working.

 

The routine is this one by the awesome Lee Mac.

 

So the code to call the function is

 

(LM:createdirectory "%HOMEDRIVE%\\AutoCAD2013\\Support")

 

...which doesn't work, and returns nil

 

If I use this code

 

(LM:createdirectory "C:\\AutoCAD2013\\Support")

 

...it works.

 

I have full control permissions on the home drive. Is there something else about the home drive that is stopping the creation of the folders?

 

 

Thanks

Paul

[BIGAL]

What does this return (getenv "Homedrive") for me "c:"

[pixel8er]

What does this return (getenv "Homedrive") for me "c:"

 

I get "G:" which is where I can see my home drive so assume correct?

[BIGAL]

Sometimes networks need the \\baracudda\users rather than G:

 

Play with (vl-mkdir dir) try different options for dir

 

Other way is old fashioned DOS using a bat file called from Autocad. G: CD..... MD.... etc

 

This worked for me (vl-mkdir "P:\\temp\\alan") 
so try  
(vl-mkdir (strcat (getenv "homedrive") "\\temp\\alan"))

Edited September 1, 2016 by BIGAL

[pixel8er]

I got an error message

; error: bad argument type: stringp nil

[BIGAL]

Fixed when posting "\\mydrive is converted to a URL address did not notice removes quotes ", edited code now working needs in quotes "c:\\Temp\\Alan" etc

[Lee Mac]

You will first need to convert the environment variable %HOMEDRIVE% to a UNC path, e.g.:

;; Expand Environment String  -  Lee Mac

(defun LM:expenvstr ( str / res wsh )
   (if (setq wsh (vlax-create-object "wscript.shell"))
       (progn
           (setq res (vl-catch-all-apply 'vlax-invoke (list wsh 'expandenvironmentstrings str)))
           (vlax-release-object wsh)
           (if (null (vl-catch-all-error-p res))
               res
           )
       )
   )
)

(LM:createdirectory (LM:expenvstr "%HOMEDRIVE%\\AutoCAD2013\\Support"))

Or using:

(LM:createdirectory (strcat (getenv "HOMEDRIVE") "\\AutoCAD2013\\Support"))

[pixel8er]

Fixed when posting "\\mydrive is converted to a URL address did not notice removes quotes ", edited code now working needs in quotes "c:\\Temp\\Alan" etc

 

Thanks Alan. I saw that and typed it in manually - still didn't work. I have a feeling there is something a bit strange with the permissions.

[pixel8er]

You will first need to convert the environment variable

 

Thanks so much Lee! That worked perfectly. Much appreciated

[Lee Mac]

You're welcome!