0 Members and 1 Guest are viewing this topic.
(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)))
Quote from: RenderMan on June 15, 2012, 05:30:30 PMI don't have CAD open right now, but I believe you're after vl-File-Rename (if memory serves).Code - Auto/Visual Lisp: [Select](vl-file-rename "C:\\Folder\\Folder2" "C:\\Folder\\Folder3")
I don't have CAD open right now, but I believe you're after vl-File-Rename (if memory serves).
Quote from: RenderMan on June 15, 2012, 05:30:30 PM** 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 coolCode: [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)))
** Edit - Actually, I think I use FileSystemObject for directories. Sorry for any confusion.
I had seen vl-file-rename, but it's misleading. I thought that it was for files only.
(findfile "C:\\Windows")
To add to your confusion...