Public Sub DownLoadFile()
 
               Dim iFileName As String = Application.StartupPath &  '"\" & _
                 main.filename.Text & "\" & URL.Substring(URL.LastIndexOf("/") _
                 + 1)
 
        Dim iRequest As Net.WebRequest = Net.HttpWebRequest.Create(URL)
        Dim iResponse As Net.HttpWebResponse = CType(iRequest.GetResponse(), _
          Net.HttpWebResponse)
 
        Dim iFileSize As Long = iResponse.ContentLength()
        main.pbar.Maximum = CInt(iFileSize)
 
        Dim iStream As IO.Stream = iResponse.GetResponseStream
        Dim iFileStream As New FileStream(iFileName, FileMode.Append)
        Dim iReadByte As Integer
 
        Dim x As Long = 0
        For x = 0 To iFileSize - 1
            If CancelButtonPressed = True Then
                iStream.Close()
                iFileStream.Close()
            End If
            iReadByte = iStream.ReadByte
            iFileStream.WriteByte(CByte(iReadByte))
            main.pbar.PerformStep()
        Next x
 
        iStream.Close()
        iFileStream.Close()
        downloaded = True
    End Sub

 Public Sub DownLoadFile()
 
        '"\" & main.filename.Text & "\"
        Dim iFileName As String = Application.StartupPath & "\test\" & _
          URL.Substring(URL.LastIndexOf("/") + 1)
 
        Dim iRequest As Net.WebRequest = Net.HttpWebRequest.Create(URL)
        Dim iResponse As Net.HttpWebResponse = CType(iRequest.GetResponse(), _
          Net.HttpWebResponse)
 
        Dim iFileSize As Long = iResponse.ContentLength()
 
        Dim localfile As Long
 
        localfile = CLng("123456789")
 
        If File.Exists(Application.StartupPath & "\test\" & URL.Substring( _
          URL.LastIndexOf("/") + 1)) = True Then
            If localfile = iResponse.ContentLength() Then
                ' Download Next File
 
            Else
                ' Download the Same
                ' Delete the old
            End If
        Else
 
            main.pbar.Maximum = CInt(iFileSize)
 
            Dim iStream As IO.Stream = iResponse.GetResponseStream
            Dim iFileStream As New FileStream(iFileName, FileMode.Append)
            Dim iReadByte As Integer
 
            Dim x As Long = 0
            For x = 0 To iFileSize - 1
                If CancelButtonPressed = True Then
                    iStream.Close()
                    iFileStream.Close()
                End If
                iReadByte = iStream.ReadByte
                iFileStream.WriteByte(CByte(iReadByte))
                main.pbar.PerformStep()
            Next x
 
            iStream.Close()
            iFileStream.Close()
            downloaded = True
        End If
 
 
 
    End Sub

Mit freundlichen Gr??en

Peter