Question

VB里如何批量修改文件名

请问哪位高手,如何取得同一目录下的所有MP3 文件的文件名?然后将这些文件名的前三个字符删掉做为新文件名!谢谢提供下代码!!

Answer 1

Set FSO = CreateObject("Scripting.FileSystemObject")
Set fd = FSO.GetFolder("E:\") '在这句中更改文件夹
For Each f In fd.Files
If LCase(Right(f.Name, 4)) = ".mp3" Then Name f.Path As f.ParentFolder & "\" & Right(f.Name, Len(f.Name) - 3)
Next

Answer 2

读出文件名，然后 变成 你想修改的 文件名 使用 重命名。