.net随笔-vb.net下载文件
1、下载文件
Imports System.IO
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If My.Computer.Network.IsAvailable Then
SaveFileDialog1.Filter = "ALL Files (*.*)|*.*"
SaveFileDialog1.FileName = Path.GetFileName(TextBox1.Text)
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim saveFileName = SaveFileDialog1.FileName
My.Computer.Network.DownloadFile(TextBox1.Text, saveFileName)
End If
End If
End Sub
End Class
Imports System.IO
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If My.Computer.Network.IsAvailable Then
SaveFileDialog1.Filter = "ALL Files (*.*)|*.*"
SaveFileDialog1.FileName = Path.GetFileName(TextBox1.Text)
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim saveFileName = SaveFileDialog1.FileName
My.Computer.Network.DownloadFile(TextBox1.Text, saveFileName, "", "", True, 500, True)
End If
End If
End Sub
End Class