vb点虐 类型重命名 vb重命名之后会不可用吗

vb点虐 重命名文件夹，里面存在文件夹和文件，不用移动和复制的

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")’当路径相同时只改文件夹名称 不移动文件

希望能帮到你

VB中重命名文件名

把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="[新文件名]"

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

vb点虐 保存excel弹出一个重命名对话框，另存为到其他盘

添加一个SaveFileDialog，在保存excle选择时候添加

SaveFileDialog1.show（）

用法跟OpenFileDialog相同

VB 批量重命名 我想把.abc 改成.123 怎么写？

最近刚好用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