Imports System.IOPublic Class Form1Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickIf My.Computer.Network.IsAvailable ThenSaveFileDialog1.Filter = "ALL Files (*.*)|*.*"SaveFileDialog1.FileName = Path.GetFileName(TextBox1.Text)If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK ThenDim saveFileName = SaveFileDialog1.FileNameMy.Computer.Network.DownloadFile(TextBox1.Text, saveFileName)End IfEnd IfEnd Sub
End Class
Imports System.IOPublic Class Form1Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickIf My.Computer.Network.IsAvailable ThenSaveFileDialog1.Filter = "ALL Files (*.*)|*.*"SaveFileDialog1.FileName = Path.GetFileName(TextBox1.Text)If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK ThenDim saveFileName = SaveFileDialog1.FileNameMy.Computer.Network.DownloadFile(TextBox1.Text, saveFileName, "", "", True, 500, True)End IfEnd IfEnd Sub
End Class