Question

VB中重命名文件名

像XP中一样改文件名时可以自己输入文件名
就是点“重命名”后，原有的文件名被选中，进入改写状态，等待输入

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="[新文件名]"
另外提问的时候要注意把已知的条件和要达到的效果说清楚，“已知文件名的若干文件”到底是什么样的文件名，有没有什么规律？是否在同一文件夹下？或者是否已将文件名存放在一个字符串数组中？不说清楚别人怎么能帮你，只能给你一个实现的思路了

Answer 2

是VB还是VB.NET？
VB的画就像1L用FSO解决
点着等待输入的可以使用listview控件
也可以用label和textbox组合，textbox的visible设置为false。
在label_click事件中
textbox.visible=true
在textbox的keydown事件
if keycode=13 then'如果敲击的是回车
label.caption=textbox.text
textbox.visible=false
'加上重命名文件的代码
end if
VB.NET可以
Microsoft.VisualBasic.FileSystem.RenameFile(oldfilename,newfilename)