How to change programmatically path and filename in webbrowser's “save as” dialog?

See more:

VB

I have this Private Sub below which automatically download files from a web page using WebBrowser control. There is any way to change (programmatically) path and filename before user click on save button of WebBrowser "Save As" dialog?

What I have tried:

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