Microsoft.VisualBasic.FileSystem.Rename(原文件夹完整路径名称,新的文件夹名称)
希望能帮到你
窗体文件重命名后,一定要保存工程文件
把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="[新文件名]"
另外提问的时候要注意把已知的条件和要达到的效果说清楚,"已知文件名的若干文件"到底是什么样的文件名,有没有什么规律?是否在同一文件夹下?或者是否已将文件名存放在一个字符串数组中?不说清楚别人怎么能帮你,只能给你一个实现的思路了
以上就是土嘎嘎小编大虾米为大家整理的相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!