FolderBrowserDialogでダウンロード場所を設定する方法

Question

FolderBrowserDialogを使用してファイルをダウンロードする場所を選択しようとしています。これはフォルダを選択するためのコードです。

Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click 
    If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then 
     TextBox1.Text = FolderBrowserDialog1.SelectedPath 
    End If 
End Sub 

ここでは、テキストボックスに表示されるディレクトリを取得し、そこにファイルをダウンロードする方法を知っておく必要があります。ダウンロードのコードは次のとおりです。

My.Computer.Network.DownloadFile("http://download1516.mediafire.com/wtzr4h1b37zg/ptzcffq933e87c8/sword_custom.png", "C:\Users\Administrator") 

"C：\ Users \ Administrator"を置き換えるにはどうすればよいですか？

Answer 1

Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click 
    Dim URL As String = "http://download1516.mediafire.com/wtzr4h1b37zg/ptzcffq933e87c8/sword_custom.png" 
    Dim SaveFile As String = "sword_custom.png" 

    With FolderBrowserDialog1 
     If .ShowDialog = DialogResult.OK Then 
      TextBox1.Text = .SelectedPath 
      My.Computer.Network.DownloadFile(URL, IO.Path.Combine(.SelectedPath, SaveFile)) 
     End If 
    End With 
End Sub