前阵子写了一个目录名/文件名的获取小程序,这两天居然又被名称批量修改麻烦了一下,所以再写一个吧。
注意:你要是只想写一次的话,用批处理更方便。只有多次使用的情况下,自己写程序才有意义。
VB中进行名称修改很容易,用到的就是Name这个函数,用法如下:
Name OldName As NewName,它不仅可以改写名称,而且可以更改目录,比如:
Name "c:/CAN1ED.txt" As "c:/test/CAN01ED.txt"
好了,不多说了,共享代码了:(大家可以参照我的程序来看)http://download.csdn.net/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].