Create folder name with decimal

[BeKirra]

I was helped with creating folders in couple years ago.

It works fine for me and I never go back to look at it again until now.

I noticed that if the new folder name contains a decimal point, all characters after the decimal will lose in the folder name.

For example:

(makepath "C:/ABC.DEF")

It returns "C:/ABC\\"

In other words, the new folder is "ABC" instead of "ABC.DEF"

I have looked the code below but cannot figure it out.

Your help is much appreciated.

(defun makepath (path / temp items item dir)
(setq path (if (= (type path) 'STR) (vl-string-right-trim "/\\" path) nil))
(while (and path (/= temp path))
(setq items (cons (vl-filename-base path) items)
temp path
path (vl-filename-directory path)
)
)
(while (setq item (car (setq items (cdr items))))
(setq dir (strcat path item))
(if (or (vl-directory-files path item -1)(vl-mkdir dir))
(setq path (strcat dir "\\"))
(setq items (prompt (strcat "\nUnable to create directory \"" dir "\"\n")))
)
)
)

[Ajilal.Vijayan · Accepted solution]

try with this quick fix.

Add an extra decimal at the end of DEF.

(makepath "C:/ABC.DEF.")

Or add the below highlighted codes in your program.

Then you can run the program as (makepath "C:/ABC.DEF")

Click the +sign to see the Code

Spoiler

 

(defun makepath (path / temp items item dir)
(setq path (if (= (type path) 'STR) (vl-string-right-trim "/\\" path) nil))

;if the path name contains a decimal point then add an extra decimal point at the end.
(if (vl-string-search "." path)
(setq path (strcat path "."))
);if
;.
;.
;.
;Remaining codes are same 

[BeKirra]

Thanks. It works perfectly.

But can you explain that the reason of adding an extra decimal point to the end of the path?

Thanks in advance.

[Ajilal.Vijayan]

Becuase at this line in the code

(setq items (cons (vl-filename-base path) items)

the vl-filename-base command is returning the value just before the decimal point appears in the supplied argument.

So (vl-filename-base "C:/ABC.DEF") will return "ABC"

whereas (vl-filename-base "C:/ABC.DEF.") will return ABC.DEF

Hope this helps.

[BeKirra]

Thanks.

I should check with the HELP carefully. It makes sense.

[Ajilal.Vijayan]

BeKirra wrote:

Thanks.

I should check with the HELP carefully. It makes sense.

You're welcome, BeKirra
Glad I could help.

[Ajilal.Vijayan]

BeKirra wrote:

Thanks.

I should check with the HELP carefully. It makes sense.

You're welcome, BeKirra
Glad I could help.

[BeKirra]

As I said before, the code looks alright by adding these lines to makepath:

(setq path
(if (= (type path) 'STR)
(vl-string-right-trim "/\\" path)
nil
)
)

I find that if the new path is more than 1 level and if the upper level name contains a decimal, all characters after the decimal in the level will be removed. This seems the same problem previously.

For example:

Set path: "C:/ABC.DEF/GHJ.KLM"

then (makepath "C:/ABC.DEF/GHJ.KLM") returns

"C:/ABC/GHJ.KLM"

Thanks in advance.

[Ajilal.Vijayan]

This seems interesting and the same time now I dont know how to fix this

Will update you once got any solution.

[BeKirra]

Sorry, everything are correct in my post #7 except the code.

It should be:

(if (vl-string-search "." path)
(setq path (strcat path "."))
);if

When I look into the HELP for the details of the following items used in makepath, it seems that nothing to do with them:

1) vl-filename-base

2) vl-filename-directory

3) vl-directory-files

Did I miss something?