VB如何批量更改文件名？

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

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

Name 语句 重新命名一个文件、目录、或文件夹。 语法 Name oldpathname As newpathname oldpathname --- 原文件名 newpathname --- 新文件名 例如： Name "闾揿皬骞虫椂浠e叏25绔_doc" As "闾揿皬骞虫椂浠e叏25绔.doc"

最简单的话采用VB自带的FileListBox控件来显示当前目录（配合driveListBox和DirListBox实现，这个你应该没问题吧） 然后循环读取filelistbox列表中各个文件的文件名，将文件名中的"_"替换为 "."即可，在利用VB的Name函数来改名 替换函数：Replace(FileStr,"_",".")