Question

vbs如何实现根据扩展名来重命名文件

如：一文件夹中有*.txt这样的的一个文件，脚中有提供有重新要命名的文件名（如：name="yyy"），脚本运行后原*.txt的该文件被改为"yyy.txt“，小弟还请名位高手多多指教，在此表示感谢！

Answer 1

Dim objFso,objFolder,File
Set objFso=CreateObject("Scripting.FileSystemObject")
Set objFolder=objFso.getFolder(".\temp1") '这个路径你要改哦
For Each File In objFolder.Files
If File.Name="*.txt" Then
File.Name="demo.txt"
End If
Next

追问

首先谢谢你，为我解答上面的问题，还想请教一下你
For Each File In objFolder.Files
If File.Name="*.txt" Then
File.Name="demo.txt"
End If
Next
这里的*.txt必需要手动填写文件名在里面吗，能否自动搜索扩展名为.txt的直接改成后面的名字，这样可行吗？

追答

*.txt代表的就是txt文件，只是是txt文件，就会更改名字的，你可以试一试！

追问

我试了不行，必须手动指定。

追答

For Each File In objFolder.Files
If getExt(File.Name)="txt" Then
File.Name="demo.txt"
End If
Next
Function getExt(filename)
Dim arr
arr=filename.Split(".")
getExt=arr(1)
End Function

追问

Function getExt(filename)

arr=filename.Split(".")中间的filename中间少了一个点，我刚试一下，效果达到了，非常谢谢你的指教。

Answer 2

美世家食通天5 故障，点击埋单后所有点的菜和数据金额都不见。如何解决