VB实现批量名称修改

前阵子写了一个目录名/文件名的获取小程序，这两天居然又被名称批量修改麻烦了一下，所以再写一个吧。

 

注意：你要是只想写一次的话，用批处理更方便。只有多次使用的情况下，自己写程序才有意义。

 

VB中进行名称修改很容易,用到的就是Name这个函数，用法如下：

Name OldName As NewName，它不仅可以改写名称，而且可以更改目录,比如：

 

Name "c:/CAN1ED.txt" As "c:/test/CAN01ED.txt"

 

好了，不多说了，共享代码了：（大家可以参照我的程序来看）http://download.youkuaiyun.com/source/1975928

Private Sub Command1_Click() '批量改名
Dim Successstr As String
Dim Successnum As Integer

Dim pathname As String

Dim sf As String
Dim len1, len2, len3 As Integer

Successnum = 0

'比如原文件是有如下几个
'C:/test/【老爸老妈的浪漫史.第三季】.[How.I.Met.Your.Mother][S0301][Chi-Eng][TVrip][624×352].rmvb
'C:/test/【老爸老妈的浪漫史.第三季】.[How.I.Met.Your.Mother][S0302][Chi-Eng][TVrip][624×352].rmvb
'C:/test/【老爸老妈的浪漫史.第三季】.[How.I.Met.Your.Mother][S0303][Chi-Eng][TVrip][624×352].rmvb

'分成如下的三个部分：（text3的??指的是01/02