用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

VB6中执行“文件”菜单中的“Form1另存为”（Form1代表你当前窗体名称），或者在工程资源管理器窗口，右击要重命名的窗体，在d出的快捷菜单中执行“Form1另存为”（Form1代表你当前窗体名称）。

窗体文件重命名后，一定要保存工程文件

重命名Name

"F:\x.txt（原文件路径名）"

As

"F:\f.txt（要改的名字）"

又或者

FileCopy

"原文件路径名",

"要改为的路径名"

Kill

"原文件路径名"

再看看别人怎么说的。

---