vb 删除文件名中的固定字符 修改文件名

来源：百度知道 编辑：UC知道 时间：2024/05/18 11:21:09
文件夹ABC 下有多个文件 名字的特点是这样： DAR开发中.wma DAR心情好.wma DAR不开心.wma 等 也就是说，每个文件的前面几个字符都是DAR， 现在我想批量把文件名中的DAR全去掉，使得文件名变为 开发中.wma 心情好.wma 不开心.wma ......
请给代码 谢谢 问了几个问题，现在没什么分了，10分还请见谅，多多帮助
追加了5分 15分，所有的分数了，请高手帮忙

Private Sub Command1_Click()
Dim r As String, s As String,pat as string
pat="e:\abc\"
r = Dir(pat+"dar*.wma")
If r <> "" Then
s = Replace(r, "DAR", "")
Name pat + r As pat + s
End If
Do While r <> ""
r = Dir
If r <> "" Then
s = Replace(r, "DAR", "")
Name pat + r As pat + s
End If
Loop
MsgBox "OK"
End Sub

建议使用批处理