VBSの質問です

a="C:\test\a\"
b="a.html"

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(a)

For Each objFile In objFolder.SubFolders 
	if objFSO.FileExists(objFile.path & "\" & b ) then
		c=right(objFile.path,len(objFile.path) - len(a))
		set gfile = objFSO.getfile(objFile.path & "\" & b)
		gfile.name = c & ".html"
		set gfile = nothing
	end if
Next

a="C:\test\a\"

ここのパスは適宜変更してください。