Topic: Rename a folder with Lisp

[Rabbit]

After searching all over, I can't figure out how to rename a folder with lisp.  Maybe my search criteria was wrong.

Basically, I want to rename a folder <C:Folder/Folder2> to <C:Folder/Folder3>.

Thanks,
Rabbit

[BlackBox]

I don't have CAD open right now, but I believe you're after vl-File-Rename (if memory serves).

** Edit - Actually, I think I use FileSystemObject for directories. Sorry for any confusion.

[Lee Mac]

Code - Auto/Visual Lisp: [Select]

1. (vl-file-rename "C:\\Folder\\Folder2" "C:\\Folder\\Folder3")

Always do a quick search before starting a new thread 

[Rabbit]

I had seen vl-file-rename, but it's misleading.  I thought that it was for files only.

Sorry for the trouble guys.
I'll go check it out.
Rabbit

[Keith™]

This is what I have used in the past ... apparently the vl-file-rename works too cool

Code: [Select]

(defun renFolder(OldName NewName)
  (setq fso (vlax-create-object "Scripting.FileSystemObject"))
  (setq ofe (vlax-invoke-method fso 'FolderExists OldName))
  (setq nfe (vlax-invoke-method fso 'FolderExists NewName))
  (if (and (= ofe :vlax-true)(= nfe :vlax-false))
    (vlax-invoke-method fso 'MoveFolder OldName NewName)
  )
  (and (= ofe :vlax-true)(= nfe :vlax-false)(= (vlax-release-object fso) 0))
)


[BlackBox]

I don't have CAD open right now, but I believe you're after vl-File-Rename (if memory serves).

Code - Auto/Visual Lisp: [Select]

1. (vl-file-rename "C:\\Folder\\Folder2" "C:\\Folder\\Folder3")

Thanks for the confirmation, Lee. 

** Edit - Actually, I think I use FileSystemObject for directories. Sorry for any confusion.

This is what I have used in the past ... apparently the vl-file-rename works too cool

Code: [Select]

(defun renFolder(OldName NewName)
  (setq fso (vlax-create-object "Scripting.FileSystemObject"))
  (setq ofe (vlax-invoke-method fso 'FolderExists OldName))
  (setq nfe (vlax-invoke-method fso 'FolderExists NewName))
  (if (and (= ofe :vlax-true)(= nfe :vlax-false))
    (vlax-invoke-method fso 'MoveFolder OldName NewName)
  )
  (and (= ofe :vlax-true)(= nfe :vlax-false)(= (vlax-release-object fso) 0))
)


Two for two (from memory that is)! 

I had seen vl-file-rename, but it's misleading.  I thought that it was for files only.

To add to your confusion, also consider the Getfiled, and Findfile functions. 

Simple example of the latter:

Code: [Select]

(findfile "C:\\Windows")


[BlackBox]

To add to your confusion...

[SlightlyOffTopic]

vl-Registry-Write being relegated to string values always bothered me, yet this post accurately represents the level of documentation Autodesk has provided over the years:

http://forums.augi.com/showthread.php?139901-Do-this-if-the-drawing-name-is-equal-to-this&p=1175457&viewfull=1#post1175457

[/SlightlyOffTopic]