代码我没时间写。
不过我可以告诉你思路：现读取目录下文件的数量，然后Redim一个数组。用循环把每个文件的文件名（不包含扩展名）读取并赋值给数组的相应元素。然后再用循环把数组里的文件名（不包含扩展名）提取出来，加上.txt的扩展名然后在重命名相应的文件即可。
也可以把利用文件名查询文件并加上.txt扩展名。
关于怎么提取不带扩展名的文件名、怎么获得目录下文件数量，网上有很多资料的。
文件右键——重命名——改后辍为.txt OK
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024