如何使用FolderBrowserDialog

时间:2017-01-15 01:47:47

标签: vb.net

我正在尝试使用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"与?

1 个答案:

答案 0 :(得分:0)

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