iamhuangjinming 发表于 2016-8-9 09:25:53

我想改文件夹的名字

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

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

(defun t1(patha a1 b1)
(if(vl-file-directory-p patha)
    (foreach x(vl-directory-files patha(strcat"*"a1"*")-1)
      (if(vl-string-search a1 x)
        (vl-file-rename(strcat patha"\\"x)(strcat patha"\\"(vl-string-subst b1 a1 x)))))))
(defun GetFolder(msg / WinShell shFolder path)
    (setq winshell (vlax-create-object "Shell.Application")
          shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))
    (if (vl-catch-all-error-p(vl-catch-all-apply'(lambda ()(setq shFolder(vlax-get-property shFolder'self))
                                                   (setq path (vlax-get-property shFolder 'path)))))nil path))

(defun c:t1(/ patha a b)
(vl-load-com)
(if(and(setq patha(GetFolder"\n批量修改子文件夹名称"))
       (setq a(getstring"要被替换的字符")b(getstring"替换为")))
    (t1 patha a b)))

树櫴希德 发表于 2016-8-24 08:44:47

llsheng_73 发表于 2016-8-9 10:21 static/image/common/back.gif


可以批量改文件名吗 73哥

llsheng_73 发表于 2016-8-24 21:52:21

树櫴希德 发表于 2016-8-24 08:44 static/image/common/back.gif
可以批量改文件名吗 73哥

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

iamhuangjinming 发表于 2016-10-11 12:59:57

多谢，哈哈

sicky111 发表于 2016-10-13 21:48:01

这个方便。
页: [1]
查看完整版本: 我想改文件夹的名字