我想改文件夹的名字

iamhuangjinming

我想改文件夹的名字,把D盘下的xr开头的文件夹（xr-123）名字改为xr-160808

llsheng_73

1. (defun t1(patha a1 b1)
   
2.   (if(vl-file-directory-p patha)
   
3.     (foreach x(vl-directory-files patha(strcat"*"a1"*")-1)
   
4.       (if(vl-string-search a1 x)
   
5.         (vl-file-rename(strcat patha"\\"x)(strcat patha"\\"(vl-string-subst b1 a1 x)))))))
   
6. (defun GetFolder(msg / WinShell shFolder path)
   
7.     (setq winshell (vlax-create-object "Shell.Application")
   
8.           shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))
   
9.     (if (vl-catch-all-error-p(vl-catch-all-apply'(lambda ()(setq shFolder(vlax-get-property shFolder'self))
   
10.                                                    (setq path (vlax-get-property shFolder 'path)))))nil path))
    
11. 
    
12. (defun c:t1(/ patha a b)
    
13.   (vl-load-com)
    
14.   (if(and(setq patha(GetFolder"\n批量修改子文件夹名称"))
    
15.          (setq a(getstring"要被替换的字符")b(getstring"替换为")))
    
16.     (t1 patha a b)))

(defun t1(patha a1 b1)<br />   (if(vl-file-directory-p patha)<br />     (foreach x(vl-directory-files patha(strcat"*"a1"*")-1)<br />       (if(vl-string-search a1 x)<br />         (vl-file-rename(strcat patha"\\"x)(strcat patha"\\"(vl-string-subst b1 a1 x)))))))<br /> (defun GetFolder(msg / WinShell shFolder path)<br />     (setq winshell (vlax-create-object "Shell.Application")<br />           shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))<br />     (if (vl-catch-all-error-p(vl-catch-all-apply'(lambda ()(setq shFolder(vlax-get-property shFolder'self))<br />                                                    (setq path (vlax-get-property shFolder 'path)))))nil path))<br /> <br /> (defun c:t1(/ patha a b)<br />   (vl-load-com)<br />   (if(and(setq patha(GetFolder"\n批量修改子文件夹名称"))<br />          (setq a(getstring"要被替换的字符")b(getstring"替换为")))<br />     (t1 patha a b)))

树櫴希德

llsheng_73 发表于 2016-8-9 10:21

可以批量改文件名吗 73哥

llsheng_73

树櫴希德 发表于 2016-8-24 08:44
可以批量改文件名吗 73哥

文件夹名称都可以批量改，文件名当然也可以
仔细看下vl-directory-files的用法。。。。你就可以参照t1自己写一个改文件名的了

iamhuangjinming

多谢，哈哈

sicky111

这个方便。