标题: 如何用批处理实现多个文件重命名？ [打印本页]

---

作者: 只爱陌生人    时间: 2006-7-30 18:47     标题: 如何用批处理实现多个文件重命名？

我想把某一文件夹下的所有的文件名之前（或之后）都加上一些字符，从而实现一次就可以全部重命名。批处理文件该怎么写呀？？？
echo off
for ????? in (????) do ??????????

PS.如果用VB做，又该怎样做？

[ 本帖最后由 只爱陌生人 于 2006-7-30 19:12 编辑 ]

---

作者: Nothing    时间: 2006-7-30 22:01

MyPath = "f:\"   ' 指定路径。
    Myname = Dir(MyPath, vbDirectory)   ' 找寻第一项。
    Do While Myname <> ""   ' 开始循环。
       ' 跳过当前的目录及上层目录。
       If Myname <> "." And Myname <> ".." Then
          ' 使用位比较来确定 MyName 代表一目录。
          If (GetAttr(MyPath & Myname) And vbDirectory) <> vbDirectory Then
             Name MyPath & Myname As "新的文件名" & Myname '重命名文件
          End If
       End If
       Myname = Dir   ' 查找下一个目录。
    Loop

---

欢迎光临 编程开发论坛 (http://bbs.lihuasoft.net/)

Powered by Discuz! 6.0.0