vb點虐 重命名文件夾，里面存在文件夾和文件，不用移動和復(fù)制的

Microsoft.VisualBasic.FileSystem.Rename(原文件夾完整路徑名稱，新的文件夾名稱）

成都創(chuàng)新互聯(lián)專注于康巴什網(wǎng)站建設(shè)服務(wù)及定制，我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗。 熱誠為您提供康巴什營銷型網(wǎng)站建設(shè)，康巴什網(wǎng)站制作、康巴什網(wǎng)頁設(shè)計、康巴什網(wǎng)站官網(wǎng)定制、微信平臺小程序開發(fā)服務(wù)，打造康巴什網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供康巴什網(wǎng)站排名全網(wǎng)營銷落地服務(wù)。

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點虐 保存excel彈出一個重命名對話框，另存為到其他盤

添加一個SaveFileDialog，在保存excle選擇時候添加

SaveFileDialog1.show（）

用法跟OpenFileDialog相同

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

另外提問的時候要注意把已知的條件和要達到的效果說清楚，“已知文件名的若干文件”到底是什么樣的文件名，有沒有什么規(guī)律？是否在同一文件夾下？或者是否已將文件名存放在一個字符串數(shù)組中？不說清楚別人怎么能幫你，只能給你一個實現(xiàn)的思路了

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

最近剛好用VB.NET做了一個類似的，請參考：

轉(zhuǎn)換用的函數(shù)是RenameFiles(ByVal sourcePath As String, ByVal ext As String, ByVal oext As String)，參數(shù)意義如下：

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