⑴ 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 "原文件名"