以编程方式更改WebBrowser中的路径和文件名＆＃34;另存为＆＃34;对话

Question

我有Private Sub使用WebBrowser控件从网页自动下载文件。在用户点击WebBrowser＆＃34;另存为＆＃34;的保存按钮之前，有任何方式可以（以编程方式）更改路径和文件名。对话框？

Private Sub File_Download()
    Dim _Elements As HtmlElementCollection = WebBrowser.Document.GetElementsByTagName("input")
    For Each _Element As HtmlElement In _Elements
        If _Element.GetAttribute("value").Contains("Download") Then
            _Element.InvokeMember("click")
        End If
    Next
End Sub