Public Function GetThumbnail(SourceFile As String, DestFile As String) As _
  Boolean
Dim sJpg As String
Dim sSearch As String
Dim lPos  As Long
Dim bFound As Boolean
Dim lStart As Long, lEnd As Long
Dim lTemp As Long
'Dim lTemp2 As Long
Dim iFileNum As Integer
 
 
 
  On Error GoTo fehler
 
iFileNum = FreeFile
 
Open SourceFile For Binary As iFileNum
 
'Beginning Tag
sSearch = Chr$(255) & Chr$(216) & Chr$(255) & Chr$(219)
 
bFound = False
sJpg = Space(32767)
lPos = 1
Do
  Get iFileNum, lPos, sJpg
  If EOF(iFileNum) Then Exit Do
  lTemp = InStr(1, sJpg, sSearch)
  If lTemp <> 0 Then
    'lTemp2 = InStr(lTemp + 1, jspg, sSearch)
 
    bFound = True
    lStart = lPos + lTemp - 1
    Exit Do
  End If
 
  lPos = lPos + 32767 - 4
Loop While Not bFound
 
If bFound Then
  'Ende suchen
  bFound = False
  lPos = lStart
  sSearch = Chr$(255) & Chr$(217)
  Do
    Get iFileNum, lPos, sJpg
    If EOF(iFileNum) Then Exit Do
    lTemp = InStr(1, sJpg, sSearch)
    If lTemp <> 0 Then
      bFound = True
      lEnd = lPos + lTemp - 1 + 2
      Exit Do
    End If
 
    lPos = lPos + 32767 - 4
  Loop While Not bFound
End If
 
If Not bFound Then
  Close iFileNum
  Exit Function
End If
 
lTemp = lEnd - lStart
 
sJpg = Space$(lTemp)
 
Get iFileNum, lStart, sJpg
Close iFileNum
 
 
 
iFileNum = FreeFile
 
 
'Eventuell vorher löschen
On Error Resume Next
Kill DestFile
Err.Clear
On Error GoTo fehler
 
 
Open DestFile For Binary As iFileNum
Put iFileNum, 1, sJpg
Close iFileNum
 
 
 
GetThumbnail = True
End Sub