批量改文件名如何实现 1.gif to 2.gif ,2.gif to 3.gif ... n.gif 2 n+1.gif [在线等待]

Question

我在d:\gif\ 目录下有一批gif文件 文件名分别为
1.gif
2.gif
3.gif
4.gif
5.gif...
...
1000.gif现在需要做如下修改把1.gif 改为2.gif
把2.git 改为3.gif把#n#.gif改为#n+1#.gif
如何实现啊?
具体一些好吗?谢谢各位了

Answer 1

name 旧文件名　as 新文件名　
dim i as long
for i =1000 to 1 step -1
  if dir("d:\gif\" & trim(str(i)) & ".gif",vbNormal)<>"" then
     name "d:\gif\" & trim(str(i)) & ".gif" as "d:\gif\" & trim(str(i+1)) & ".gif"
  endif
next i

Answer 2

To:  diyee diyee 图片的文件名还算是比较有规律的 比如我的图片有
1.gif 2.gif   4.gif  5.gif  6.gif  8.gif   ....
中间缺少 了3.gif   7.gif 
我需要把他们改成1.gif 2.gif  3.gif(3.gif ) 4.gif(5.gif)  5.gif(6.gif) 6.gif(8.gif)

Answer 3

有顺序上的要求吗？没有的话，直接把  1000.gif改成7.gif,把 999.gif改为3.gif行了。　有顺序要求的话用下面的：dim i as long，Namebz as long
mkdir "d:\gif1"        '建一个新目录存放
namebz = 1
for i =1 to 1000
  if dir("d:\gif\" & trim(str(i)) & ".gif",vbNormal)<>"" then
     name "d:\gif\" & trim(str(i)) & ".gif" as "d:\gif1\" & trim(str(namebz)) & ".gif"
     namebz=namebz+1
  endif
next i
把上面的代码放一command_click事件里，执行完后， d:\gif1　里的就是你想要的结果了。

Answer 4

那只要小改上面那个程序：
dim i as long
dim j as long
j=1
for i =1 to 1000 
if dir("d:\gif\" & trim(str(i)) & ".gif",vbNormal)<>"" then
name "d:\gif\" & trim(str(i)) & ".gif" as "d:\gif\" & j & ".gif"
j=j+1
endif
next i