vb.net文件夹重命名 vbs重命名文件夹

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

Microsoft.VisualBasic.FileSystem.Rename(原文件夹完整路径名称，新的文件夹名称）

创新互联专注为客户提供全方位的互联网综合服务，包含不限于网站建设、成都网站制作、平度网络推广、小程序制作、平度网络营销、平度企业策划、平度品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；创新互联为所有大学生创业者提供平度建站搭建服务，24小时服务热线：18980820575，官方网址：www.cdcxhl.com

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.net监控路径上的任一文件夹，当重命名时触发事件。

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

FileSystemWatcher1.NotifyFilter = IO.NotifyFilters.DirectoryName Or IO.NotifyFilters.FileName‘监控文件夹和文件。

FileSystemWatcher1.IncludeSubdirectories = True’监控子文件夹

End Sub

Private Sub FileSystemWatcher1_Renamed(sender As Object, e As IO.RenamedEventArgs) Handles FileSystemWatcher1.Renamed

MsgBox(e.FullPath vbCrLf e.Name)

End Sub'捕获新路径

你监控test不就好了，若要排除其他文件夹，IncludeSubdirectories 设为假，用多个FileSystemWatcher就行了，用数组或其他方式创建。

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

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