dim s() as string
创新互联建站客户idc服务中心，提供光华机房服务器托管、成都服务器、成都主机托管、成都双线服务器等业务的一站式服务。通过各地的服务中心，我们向成都用户提供优质廉价的产品以及开放、透明、稳定、高性价比的服务，资深网络工程师在机房提供7*24小时标准级技术保障。
d=dir("d:\*.doc")
do until d=""
s=split(d,".")
s(ubound(s)-1)=s(ubound(s)-1) "B"
name "d:\" d as "d:\" join(s,".")
d=dir
loop
msgbox "批量修改文件名完毕！"
我有dir搜索指定目录所有文件的代码。改名也很简单，但是你的要求很模糊，如果有意思请详细说明要求，我给你代码，发消息即可。
在程序所在文件夹创建10个文件夹，名字分别是1到10，再在每个文件夹中创建5个子文件夹，名字分别是1到5：
For i = 1 To 10
MkDir App.Path "\" i
For j = 1 To 5
MkDir App.Path "\" i "\" j
Next j
Next i
把程序所在文件夹的所有txt文件改名为1.txt、2.txt、3.txt.......n.txt：
d = Dir(App.Path "\*.txt")
n = 1
Do Until d = ""
If d n ".txt" Then Name App.Path "\" d As App.Path "\" n ".txt"
n = n + 1
d = Dir
Loop
如果你单纯的就是改名的话，用下面的代码即可！用name语句就可以了！
Private Sub Command1_Click()
Dim i As Long
For i = 68 To 178
Name App.Path "\2012XDF(" i ").xls" As App.Path "\2012XDF(" i - 1 ").xls"
Next
End Sub
最简单的话采用VB自带的FileListBox控件来显示当前目录（配合driveListBox和DirListBox实现，这个你应该没问题吧）
然后循环读取filelistbox列表中各个文件的文件名，将文件名中的"_"替换为
"."即可，在利用VB的Name函数来改名
替换函数：Replace(FileStr,"_",".")
API声明
Public Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
Public Const FILE_ATTRIBUTE_ARCHIVE = H20
Public Const FILE_ATTRIBUTE_COMPRESSED = H800
Public Const FILE_ATTRIBUTE_DIRECTORY = H10
Public Const FILE_ATTRIBUTE_HIDDEN = H2
Public Const FILE_ATTRIBUTE_NORMAL = H80
Public Const FILE_ATTRIBUTE_READONLY = H1
Public Const FILE_ATTRIBUTE_SYSTEM = H4
Public Const FILE_ATTRIBUTE_TEMPORARY = H100
SetFileAttributes("文件名",FILE_ATTRIBUTE_NORMAL)
批量修改做个循环就行
