Option Explicit
 
Private Declare Function URLDownloadToFile Lib "urlmon" _
  Alias "URLDownloadToFileA" ( _
  ByVal pCaller As Long, _
  ByVal szURL As String, _
  ByVal szFileName As String, _
  ByVal dwReserved As Long, _
  ByVal lpfnCB As Long) As Long

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, _
  URL As Variant, Flags As Variant, TargetFrameName As Variant, _
  PostData As Variant, Headers As Variant, Cancel As Boolean)
 
  Dim sExt As String
 
  ' Datei-Extension ermitteln
  If InStr(URL, ".") > 0 Then
    sExt = LCase$(Mid$(URL, InStrRev(URL, ".")))
  End If
 
  ' Je nach Dateityp verschiedene Aktionen ausführen
  Select Case sExt
    Case ".zip", ".exe"
      ' Datei autom. downloaden
      Cancel = True
 
      Dim sLocalFile As String
      sLocalFile = App.Path & "\" & Mid$(URL, InStrRev(URL, "/") + 1)
 
      If URLDownloadToFile(0, URL, sLocalFile, 0, 0) = 0 Then
        MsgBox "Download erfolgreich!"
      End If
 
    Case Else
      ' alle anderen Links direkt ausführen
  End Select
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de