⑴ 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批量重命名文件，如何實現
方法一：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
⑶ 用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修改文件名
二次補充：肯定沒問題了，把其他功能都去掉了，只剩下改名和刪除，如果想吧刪除去掉，就去注釋的那一句。
＝＝＝＝＝＝＝＝＝＝＝＝
建一個Command1，如果需要，建立Command2。
代碼如下。
＝＝＝＝＝＝＝＝＝＝＝＝
Dim t As Integer, s As String
Private Sub Command1_Click()
Name "c:\abc\temp_" & t & ".txt" As "c:\abc\temp.txt"
Kill "c:\abc\temp.txt" '不刪除的話去掉這一句
t = t + 1
If t = 151 Then End '比方說你想進行到文件150，就要寫上151
End Sub
Private Sub Form_Load()
t = 121
End Sub
⑸ 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
語句：
重新命名一個文件、目錄、或文件夾。
Name
oldpathname
As
newpathname
oldpathname
必要參數。字元串表達式，指定已存在的文件名和位置，可以包含目錄或文件夾、以及驅動器。
newpathname
必要參數。字元串表達式，指定新的文件名和位置，可以包含目錄或文件夾、以及驅動器。而由
newpathname
所指定的文件名不能存在。
說明:
Name
語句重新命名文件並將其移動到一個不同的目錄或文件夾中。如有必要，Name
可跨驅動器移動文件。
但當
newpathname
和
oldpathname
都在相同的驅動器中時，只能重新命名已經存在的目錄或文件夾。
Name
不能創建新文件、目錄或文件夾。
在一個已打開的文件上使用
Name，將會產生錯誤。必須在改變名稱之前，先關閉打開的文件。Name
參數不能包括多字元
(*)
和單字元
(?)
的統配符。
⑺ VB如何批量更改文件名
Name 語句
重新命名一個文件、目錄、或文件夾。
語法
Name oldpathname As newpathname
oldpathname --- 原文件名
newpathname --- 新文件名
例如：
Name "閭撳皬騫蟲椂浠e叏25絝_doc" As "閭撳皬騫蟲椂浠e叏25絝.doc"
⑻ VB批量修改文件名
我有dir搜索指定目錄所有文件的代碼。改名也很簡單，但是你的要求很模糊，如果有意思請詳細說明要求，我給你代碼，發消息即可。
⑼ 在VB中文件改名的兩種方法
第一種（推薦）
Name "原文件名" As "新文件名"
第二種
FileCopy "原文件名", "新文件名"
Kill "原文件名"