Question

大量顺序编号文件 批量重命名 VB语言

现有330个文件“1~330.wmv”，给出了一个文本文件“文件名.txt”，里面有330个文件名，如下
……
209_课后习题(14)
210_建立sub过程(1)
211_建立sub过程(2)
212_调用sub过程(1)
213_调用sub过程(2)
214_调用sub过程(3)
215_通用过程和事件过程
216_建立function过程
217_调用function过程
218_实例讲解(1)
219_实例讲解(2)
……
我完成了把文件名导入到数组arr(1 to 330)中,然后就卡住了
For i =1 To 330
Name "C:\Documents and Settings\XPMUser\桌面\test\i.wmv" As arr(i)+".wmv" '这语句怎么不行呢？
next i
简化了文件数目，做了一个试验
/*************************************/
'程序正文
Private Sub Command1_Click()Dim arr(1 To 5) As StringOpen "C:\Documents and Settings\XPMUser\桌面\文件名2.txt" For Input As #1 ' 打开文件，获取新的文件名For i = 1 To 5 ' Line Input #1, arr(i) ' 读入数据并将其赋予数组 Name "" & i & ".txt" As "arr(" & i & ").txt" '重命名 Text1.Text = Text1.Text + arr(i)+"重命名成功" + vbCrLfNext iClose #1End Sub
/*****************************************/
附："文件名2.txt"内容
1_VB启动与退出2_主窗口3_主窗口的组成4_其它没有解决的问题5_其它窗口(2)
之前的文件

执行之后的文件





Answer 1

VB 的更改文件名的语句格式是：
Name oldpathname As newpathname
你现在 存放在 数组arr(1 to 330)中 的文件名应该是原来的文件名吧？那应该出现在前面的位置上！

而新的文件名也应该是不一样的吧？
我的理解你的语句应该这样：
For i =1 To 330
Name arr(i)+".wmv" As "C:\Documents and Settings\XPMUser\桌面\test\“ & i & ".wmv"
next i
注意，前面是原来文件名（要包括文件的路径的），后面是新的文件名，你用数字序号，要这样

"C:\Documents and Settings\XPMUser\桌面\test\“ & i & ".wmv"

追问

呵呵，‘现有330个文件‘1~330.wmv’“，这个语句我理解，我的顺序没有错，我忘了加 “& i &”，后来加上了以后，出现了这样的问题，第一个文件名"1.wmv"命名成为"arr(1).wmv"（这里不是arr()数组的一个元素，而是字长为6的的字符串“arr(1)”），由于newpathname路径已经存在，所以第二个文件名就无法继续下去。

追答

你说说你的新文件名具体是什么？规律是什么？你上面说的我还没有理解？
第1个变成：arr(1).wrmv

第2个变成：arr(2).wrmv

第3个变成：arr(3).wrmv

。。。
第300个变成：arr(300).wrmv
如果是这样那就：

Name "C:\Documents and Settings\XPMUser\桌面\test\" & i & ".wmv" As "arr(" & i & ").wmv"

不就是这样啊！

这个似乎，与你的那个数组没有一点关系？？？？？？

追问

源文件名是

1. wmv

2. wmv

   ……

   330.wmv

我需要命名后的文件名是

……

215_通用过程和事件过程.wmv

216_建立function过程.wmv

217_调用function过程.wmv

…… 

我的数组

……

arr(215)=215_通用过程和事件过程

arr(216)=216_建立function过程

……

 

现在命名后出现的文件名是

arr(1).wmv

arr(2).wmv

……

追答

你的数组应该是：
……
arr(215)="215_通用过程和事件过程" '有双引号的？？？
arr(216)="216_建立function过程"
……
你这个数组 arr（） 应该声明为字符串类型的吧？
你声明一下,然后使用
Dim arr（1 To 300） As String

那应该语句是这样
Name "C:\Documents and Settings\XPMUser\桌面\test\" & i & ".wmv" As arr(i) + ".wmv"

哦，我明白了，你这个是希望在原处改名，还是怎么？如果在原处改名，要在后面的文件名前仍然带路径，否则被移动到你这个程序的当前文件夹里去了？？？？
这样：
Name "C:\Documents and Settings\XPMUser\桌面\test\" & i & ".wmv" As "C:\Documents and Settings\XPMUser\桌面\test\“ & arr(i) + ".wmv"
这是VB的Name语句的另一个功能，可以移动位置的！！！

比如：
Name "C:\01\111.TXT" As "C:\222.txt"
这个文件在更名的同时被移动了位置了！！！

Answer 2

cmdStr = "rename C:\Documents and Settings\XPMUser\桌面\test\" & i & ".wmv " & arr(i) &".wmv"
Shell ("cmd.exe /c " & cmdStr)