189 8069 5689
Microsoft.VisualBasic.FileSystem.Rename(原文件夹完整路径名称，新的文件夹名称）
赛罕ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景，ssl证书未来市场广阔！成为成都创新互联公司的ssl证书销售渠道，可以享受市场价格4-6折优惠！如果有意向欢迎电话联系或者加微信：028-86922220（备注：SSL证书合作）期待与您的合作！
Microsoft.VisualBasic.FileSystem.Rename("D:\1", "D:\2\1")‘当路径不对时会把原文件夹剪切到“D:\2\”下面文件夹名称不变
Microsoft.VisualBasic.FileSystem.Rename("D:\1", "D:\2\2")")‘当路径不对时会把原文件夹剪切到“D:\2\”下面文件夹名称 更改为 2
Microsoft.VisualBasic.FileSystem.Rename("D:\1", "D:\2")’当路径相同时只改文件夹名称 不移动文件
希望能帮到你
把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="[新文件名]"
另外提问的时候要注意把已知的条件和要达到的效果说清楚，“已知文件名的若干文件”到底是什么样的文件名，有没有什么规律？是否在同一文件夹下？或者是否已将文件名存放在一个字符串数组中？不说清楚别人怎么能帮你，只能给你一个实现的思路了
添加一个SaveFileDialog，在保存excle选择时候添加
SaveFileDialog1.show（）
用法跟OpenFileDialog相同
最近刚好用VB.NET做了一个类似的，请参考：
转换用的函数是RenameFiles(ByVal sourcePath As String, ByVal ext As String, ByVal oext As String)，参数意义如下：
sourcePath ：源路径
ext ：原来的扩展名
oext ：要修改成的扩展名
另外，别忘了Imports System.IO。
Function GetExt(ByVal a As String) As String
Dim findext() As String
findext = Split(a, ".")
GetExt = Mid(a, Len(a) - Len(findext(findext.Length - 1)) + 1)
End Function
Function GetFileNameWithoutExt(ByVal a As String) As String
GetFileNameWithoutExt = Mid(a, 1, Len(a) - Len(GetExt(a).Length))
End Function
Function RenameFiles(ByVal sourcePath As String, ByVal ext As String, ByVal oext As String) As Boolean
If oext(0) "." And oext "" Then
oext = "." oext
End If
Try
Dim fileList As String() = Directory.GetFileSystemEntries(sourcePath)
'遍历所有的文件和目录
For Each filepath As String In fileList
'目录处理,递归
If (Directory.Exists(filepath)) Then
RenameFiles(filepath, ext, oext)
Else
If LCase(GetExt(Path.GetFileName(filepath))) = LCase(ext) Then
FileSystem.Rename(filepath, GetFileNameWithoutExt(filepath) oext)
End If
End If
Next
Return True
Catch ex As Exception
Return False
End Try
End Function