html - vbscript - 文字列の置換を行う方法は?

Question

この vbscript コードを使用して、IE9 で表示されるページを mht ファイルとして保存します。実行するには、お気に入りバーに配置してからクリックします。問題は、ページは保存されますが、ファイル名が ## で終わることですhomepage##.mht。ファイル名の ## を削除する方法を知っている人はいますか? ロジックでタスクを実行するために使用されているようですが、面倒です笑。

ありがとう。

Set ies=CreateObject("Shell.Application").Windows()
For Each ie In ies
  If ie.ReadyState=4 Then If TypeName(ie.Document)="HTMLDocument" Then If ie.Document.hasFocus() Then Exit For
Next
If IsEmpty(ie) Then
For Each ie In ies
If ie.ReadyState<>4 Then
ElseIf TypeName(ie.Document)="HTMLDocument" Then
ie.Document.focus
If ie.Document.hasFocus() Then Exit For
End If
Next
End If
If IsEmpty(ie) Then
MsgBox "Not Found"
WScript.Quit
End If
href=ie.locationURL
Set a=ie.Document.createElement("a")
a.href=href
a.hash="##"
ie.Document.parentWindow.setTimeout "location.replace """ & a.href & """",0,"vbscript"
Do While ie.Document.parentWindow.location.hash<>"##"
WScript.Sleep 100
Loop
ie.ExecWB 4,1
ie.Document.parentWindow.location.replace href