VB如何批量更改文件名？

Name 语句

重新命名一个文件、目录、或文件夹。

语法

Name oldpathname As newpathname

oldpathname --- 原文件名

newpathname --- 新文件名

例如：

Name "闾揿皬骞虫椂浠e叏25绔_doc" As "闾揿皬骞虫椂浠e叏25绔.doc"

将你的程序中的File1.filename=f改为File1.Refresh就可以了！

再跟你举个例子吧！假设在文件列表框中单击某个文件，则d出InputBox，输入新文件名，然后将文件列表框中选中的这一个文件改名为新文件名，可以编写如下程序。

Private Sub File1_Click()

Dim newfile As String, filepath As String

If File1.ListIndex <0 Then

MsgBox "未选择文件"

Exit Sub

End If

newfile = InputBox("请输入新文件名")

If newfile <>"" Then

filepath = File1.Path &"\"

Name filepath &File1.FileName As filepath &newfile

File1.Refresh

End If

End Sub

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)检测文件的时间，找出最新的那个即可。

---