Question

VB如何实现在当前文件夹中自动找到文件并进行重命名

我想用VB作一个重命名的小程序，能在当前文件夹中找到已知文件名的若干文件，并对他们进行事先规定的重命名。
谢谢！
谢谢你的回答！但是，不是要将所有文件都改名字的。另外，也不是都是一种文件类型啊！

Answer 1

把D:\test\目录下的所有jpg文件重命名为pic###.jpg的代码：
Dim i As Integer
i = 1
Set fs = CreateObject("scripting.filesystemobject")
Set fd = fs.GetFolder("d:\test")
For Each f In fd.Files
If LCase(f.ShortName) Like "*.jpg" Then
f.Name = "pic" & Format(i, "000") & ".jpg"
i = i + 1
End If
Next

如果文件名已确定，可以用Set f=fs.GetFile("[完整路径和文件名]")，然后用f.Name="[新文件名]"
另外提问的时候要注意把已知的条件和要达到的效果说清楚，“已知文件名的若干文件”到底是什么样的文件名，有没有什么规律？是否在同一文件夹下？或者是否已将文件名存放在一个字符串数组中？不说清楚别人怎么能帮你，只能给你一个实现的思路了