㈠ 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給文件重命名
使用 Name 語句來更改文件的名稱。示例中假設所有使用到的目錄或文件夾都已存在。
Dim OldName, NewName
OldName = "OLDFILE": NewName = "NEWFILE" ' 定義文件名。
Name OldName As NewName ' 更改文件名。
OldName = "
C
:\MYDIR\OLDFILE": NewName = "C:\YOURDIR\NEWFILE"
Name OldName As NewName ' 更改文件名，並移動文件。
其它：
使用shell語句來調用dos命令rename。
㈢ vb中如何改變文件夾的文件名
Name 語句：
重新命名一個文件、目錄、或文件夾。
Name oldpathname As newpathname
oldpathname 必要參數。字元串表達式，指定已存在的文件名和位置，可以包含目錄或文件夾、以及驅動器。
newpathname 必要參數。字元串表達式，指定新的文件名和位置，可以包含目錄或文件夾、以及驅動器。而由 newpathname 所指定的文件名不能存在。
說明: Name 語句重新命名文件並將其移動到一個不同的目錄或文件夾中。如有必要，Name 可跨驅動器移動文件。 但當 newpathname 和 oldpathname 都在相同的驅動器中時，只能重新命名已經存在的目錄或文件夾。 Name 不能創建新文件、目錄或文件夾。
在一個已打開的文件上使用 Name，將會產生錯誤。必須在改變名稱之前，先關閉打開的文件。Name 參數不能包括多字元 (*) 和單字元 (?) 的統配符。
㈣ 在VB中文件改名的兩種方法
第一種（推薦）
Name "原文件名" As "新文件名"
第二種
FileCopy "原文件名", "新文件名"
Kill "原文件名"
㈤ 用vb怎樣這樣修改文件名
Private Sub command1_click()
Dim d As String
d = Dir("c:\abc\*.txt")
Do Until d = ""
Name "c:\abc\" & d As "c:\abc\" & Text1.Text & d
d = Dir
Loop
End Sub
以上代碼是把"c:\abc"目錄的所有txt的文件名前面插入text1的內容。如果只想給最新創建的文件添加，那麼可以在循環中用FileDateTime("c:\abc\" & d)檢測文件的時間，找出最新的那個即可。
㈥ 用VB批量重命名文件，如何實現
方法一：Dim fpPrivate Sub refilename(folderspec)Dim fs, f, f1, fc, sm, hzSet fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)Set fc = f.FilesFor Each f1 In fc
hz = Mid(f1.Name, InStrRev(f1.Name, "."))
Name f1 As fp & "20101007-" & hz
NextMsgBox "修改完成"End SubPrivate Sub Command1_Click()fp = "E:\emot\xhh\"'這里設置文件夾路徑，根的需要來修改
If Right(fp, 1) <> "\" And Right(fp, 1) <> "/"
Then fp = fp & "\"Call refilename(fp)
』調用上面的自定義函數，改名End Sub........
方法二： '將f:\123\文件下的txt文件改名
Dim files() As String '用於貯存文件名
Dim length As Integer = 0 'files數組長度
Dim fileName As String = Dir$("f:\123\*.txt") '得到第一個.txt文件的文件名
'Dim g As Graphics = Me.CreateGraphics
Do While fileName <> ""
'g.DrawString(length, Font, Brushes.Red, length * 10, length * 10)
ReDim Preserve files(length)
files(length) = fileName
length = files.Length
fileName = Dir$() '得到下一個.txt文件的文件名
Loop
For i = 0 To length - 1
Dim oldfileName As String = "f:\123\" + files(i)
Dim newfileName As String = "f:\123\" + "20101007_"+ files(i）
Rename(oldfileName, newfileName) '修改文件名
Next