'Beispiel: VB .Net - Datei downloaden und ueber SaveFileDialog speichern ' Option Explicit On Option Strict On Imports System.Net Imports System.Reflection Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button1.Click Dim ptDirectory As String = "" Dim Caption As String = Me.Text Me.Text = "Bitte warten..." Dim Result As Boolean = Me.DownloadFileAndSave(Me.TextBox1.Text, ptDirectory) Select Case Result Case True MessageBox.Show("Datei wurde gefunden in:" & System.Environment.NewLine & _ ptDirectory, _ "Info - " & MethodBase.GetCurrentMethod().Name()) Case Else MessageBox.Show("Fehler in der Ausfuehrung.", "Info - " & MethodBase.GetCurrentMethod().Name()) End Select Me.Text = Caption End Sub Private Function DownloadFileAndSave(ByVal url As String, ByRef ptDirectory As String) As Boolean Dim wc As New WebClient Dim sfd As SaveFileDialog = Nothing Try sfd = New SaveFileDialog() With sfd .InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop .Filter = "Alle Dateien (*.*)|*.*" .RestoreDirectory = True Dim Extension As String = System.IO.Path.GetExtension(url) .DefaultExt = Extension If .ShowDialog() = Windows.Forms.DialogResult.OK Then With wc .DownloadFile(url, sfd.FileName) End With Dim msg As String = System.IO.Path.GetFileName(url) Dim SavedPath As String = System.IO.Path.GetDirectoryName(.FileName) MessageBox.Show("Download der Datei:" & System.Environment.NewLine & _ msg & System.Environment.NewLine & _ "war erfolgreich." & System.Environment.NewLine & _ "Die Datei wurde in:" & System.Environment.NewLine & _ SavedPath & System.Environment.NewLine & _ "gespeichert!", _ "Info - " & MethodBase.GetCurrentMethod().Name()) ptDirectory = SavedPath End If If System.IO.File.Exists(.FileName) Then Return True Else Return False End If End With Catch ex As Exception #If DEBUG Then MessageBox.Show(ex.Message.ToString(), "Info - " & MethodBase.GetCurrentMethod().Name()) #Else Throw New Exception (ex.Message .ToString ()) #End If End Try Return False End Function Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.TextBox1.Text = "http://www.visual-basic5.de/vbclassic/dotnet/newslettermaker.zip" End Sub End Class