Question

VB如何批量更改文件名？

有一个文件夹里掺杂着许多类型的文件，其中有未知文件没有扩展名，文件名长度不一样，全都是乱码。但是扩展名已经告诉你：比如：
闾揿皬骞虫椂浠e叏25绔_doc
钥佸勾鏄澶╃殑瑭_pps
这些都要把后面的_doc和_pps改成.doc和.pps，这如何用VB实现？

Answer 1

Name 语句
重新命名一个文件、目录、或文件夹。
语法
Name oldpathname As newpathname
oldpathname --- 原文件名

newpathname --- 新文件名

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

追问

我指的是把文件名中的_替换成.就行，而不是整个更改。整个更改的话，必须把这些文件名都输入进去，太麻烦了，还不如直接更改呢。这个怎么用代码实现？

追答

我提 个思路，你先自己尝试解决，如仍然解决不了，再联系：
1，用VB的Dir语句，可以搜索某个文件夹里的所有文件。
2，获得某个文件后，使用Left()和Right()，可以获得并判断文件名的右边第4个字符是否“_”，如果是就用“.”替换.替换的时候用Name语句。

Answer 2

最简单的话采用VB自带的FileListBox控件来显示当前目录（配合driveListBox和DirListBox实现，这个你应该没问题吧）

然后循环读取filelistbox列表中各个文件的文件名，将文件名中的"_"替换为 "."即可，在利用VB的Name函数来改名

替换函数：Replace(FileStr,"_",".")

追问

FileListBox、DriveListBox和DirListBox没用过，因为我是小学生没有编程老师，只自己学了半年，还有些不懂，所以需要全面的代码和注释。

Answer 3

1、用 dir 遍历目录下文件，
2、然后repalce替换 “_” 为 点，
3、最后 name...as...

追问

怎么用代码？dir怎么用、Name……As……应该怎么写？请给出全面的代码和注释。

追答

第一部分是选择文件夹的，后面是遍历文件夹，

Private Sub Command1_Click()
Set Sh = CreateObject("shell.application")
Set Folder = Sh.BrowseForFolder(0, "", 0, "") '打开对话框
If Folder Is Nothing Then Exit Sub '如果没有选择路径则退出
Path = Folder.Items.Item.Path '获得选择的路径Path = "D:\" '目录路径
Path = IIf(Right(Path, 1) = "\", Path, Path & "\")

Spath = Dir(Path & "*.*")
Do While Len(Spath)
Name Path & Spath As Path & Replace(Spath, "_", ".") 改名

Spath = Dir()
Loop
End Sub

追问

能不能有一个文本框输入路径，更改那个文件夹里面文件名包括_的文件，改为.

追答

上面前五句代码就是给你选择文件夹的啊，如果你要文本框也可以啊，把文本框的值给Path变量就好了，不难改。上面代码就能把你选的文件夹里面文件名包括 “_” 的文件改名啊，哪里不符合你需求的？你先试试看哪里不符合再说。

追问

有点不清楚，我想改D盘“我的专用下载”文件夹里的文件，是不是改成
Private Sub Command1_Click()
Set Sh = CreateObject("shell.application")
Set Folder = Sh.BrowseForFolder(0, "", 0, "")
Path = D:\我的专用下载\
'然后的命令就不改了
End Sub
有没有什么错误？急需！

追答

QQ说吧。这里难说明白。
可能我代码多了一句误导你了。下面这句 后面的 Path = "D:\" '目录路径 是注释掉的，不要的 你删除它，然后按我原来的代码不要改，运行看看、还是不行就Hi 或者扣 我 九八七一二二八一七

Path = Folder.Items.Item.Path '获得选择的路径Path = "D:\" '目录路径

追问

前面好像少一个Dim Path As...，As后面应该是Integer、String还是其他的变量？
我想指定一个文件夹的更改，是不是将设置Path的两行改为一行：Path = "D:\123\"，其他的就不用改了，这对不对，可以不可以达到将D盘123文件夹中所有文件名包括_的文件，将_改为.
不行的话还可以怎样，如果代码能更简洁的话可以简洁些，给出注释。

追答

Private Sub Command1_Click()
dim spath as string,path as string
path ="D:\123\" '路径，后面一定要斜杠。就改这里，其他不用动

Spath = Dir(Path & "*.*")
Do While Len(Spath)
Name Path & Spath As Path & Replace(Spath, "_", ".") 改名
Spath = Dir()
Loop
End Sub