Question

vb文件夹内文件批量重命名

现有一个文件夹，里面有下列很多不同格式文档，如下
笑傲江湖_金庸.txt
射雕英雄传_金庸.pdf
欢乐英雄_古龙.caj

如何用vb写一个程序，打开文件夹，选择这些文件，然后重命名为下列格式，再另存到一个文件夹。希望可以注释一下，学学也可以以后自己编，多谢多谢！！注释好的，分再加！！

笑傲江湖.txt
射雕英雄传.txt
欢乐英雄.caj
那三个只是举例，并不是只有那三个，而是有很多。

Answer 1

按照以上界面设置程序，输入以下代码：

Private Sub Command1_Click()
On Error GoTo error1 '错误陷阱
Dim myPath As String
List1.Clear
If Right(Text1.Text, 1) <> "\" Then '这里是对text1中的路径格式经进行处理，在后面添上“\”
Text1.Text = Text1.Text & "\"
End If

myPath = Dir(Text1.Text)

Do While Len(myPath) > 0 '开始循环列出文件
If 判断是否符合(myPath, "_") = True Then '列出含有“_”符号的文件
List1.AddItem myPath
End If
xx = DoEvents() '防止循环卡死
myPath = Dir()
Loop
Exit Sub
error1:
MsgBox "出现错误！请更正你的输入！", vbOKOnly, "提示"
End Sub

Private Sub Command2_Click() '开始循环列出选择的文件
Dim NEWfilename As String
If MsgBox("确定开始更改吗？更改后将无法还原哦！", vbYesNo, "询问") = vbYes Then
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
NEWfilename = Split(List1.List(i), "_")(0)
Name Text1.Text & List1.List(i) As Text1.Text & NEWfilename & "." & Split(List1.List(i), ".")(UBound(Split(List1.List(i), ".")))  '后面这里是获取源文件的后缀名
End If
Next i
MsgBox "更改完成！", vbOKOnly, "提示"
List1.Clear
Text1.Text = ""
End If
End Sub

Private Sub Command3_Click() '这里不解释了
On Error Resume Next
If List1.ListCount > 1 Then
For i = 0 To List1.ListCount - 1
List1.Selected(i) = True
Next i
End If
End Sub

Private Sub Command4_Click() '同理，也不解释了
On Error Resume Next
If List1.ListCount > 1 Then
For i = 0 To List1.ListCount - 1
List1.Selected(i) = False
Next i
End If
End Sub

Function 判断是否符合(你的字符串 As String, 需要判断的字符串 As String) As Boolean '这个功能写的不是特别好，不过能起到作用，就不解释了
Dim a, b As String
a = 你的字符串
b = 需要判断的字符串
a = Replace(a, b, "00000000000000000000000000000000000000000000000")
If a <> 你的字符串 Then
判断是否符合 = True
Else
判断是否符合 = False
End If
End Function

具体详见附件，祝您好运！

Answer 2

本程序只能修改带下划线“_”的文件名，其他不能修改！

代码和界面需要提供地址。

Answer 3

射雕英雄传_金庸.pdf

改成
射雕英雄传.txt ???