Bu dosya konumuna göz atma kodu;
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim isim As String
isim = InputBox("Please Enter Name
lütfen isim giriniz")
FolderBrowserDialog1.ShowDialog()
TextBox1.Text = FolderBrowserDialog1.SelectedPath + ("/" & isim & ("dosya uzantıları"))
Button1.Visible = True
End Sub
Buda indirme butonu koldarı;
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
My.Computer.Network.DownloadFile("internetteki indirilecek dosyanın konumu", TextBox1.Text, "", "", True, "20", False)
Me.Close()
Form3.Show()
End Sub