#Region "+++ Imports +++"
 
Imports System.Runtime.InteropServices
 
#End Region
 
Class cFileIcon
 
#Region "+++ Variablendeklaration +++"
 
    Private Structure SHFILEINFO
        Public hIcon As IntPtr  ' : icon
        Public iIcon As Integer ' : iconindex
        Public dwAttributes As Integer ' : SFGAO_ flags
        Public szDisplayName As String
        Public szTypeName As String
    End Structure
 
    Private Declare Auto Function SHGetFileInfo Lib "shell32.dll" ( _
      ByVal pszPath As String, _
      ByVal dwFileAttributes As Integer, _
      ByRef psfi As SHFILEINFO, _
      ByVal cbFileInfo As Integer, _
      ByVal uFlags As Integer) As IntPtr
 
    Private Const SHGFI_DISPLAYNAME = &H200
    Private Const SHGFI_TYPENAME = &H400
 
    Private Const SHGFI_ICON = &H100
    Private Const SHGFI_SMALLICON = &H1
    Private Const SHGFI_LARGEICON = &H0         ' Großes Symbol
    Private nIndex = 0
 
#End Region
 
    Shared Function GetDefaultIcon(ByVal arg As String) As System.Drawing.Icon
        Dim hImgSmall As IntPtr  ' Handle zur System-Image-List
        Dim shinfo As SHFILEINFO
        Dim sName As String
 
        Try
            shinfo = New SHFILEINFO
            shinfo.szDisplayName = New String(Chr(0), 260)
            shinfo.szTypeName = New String(Chr(0), 80)
            hImgSmall = SHGetFileInfo(arg, 0, shinfo, Marshal.SizeOf(shinfo), _
              SHGFI_ICON Or SHGFI_SMALLICON)
 
            GetDefaultIcon = System.Drawing.Icon.FromHandle(shinfo.hIcon)
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Function
 
End Class