Public Enum IconTypes
	SHGFI_SMALLICON = &H1
	SHGFI_LARGEICON = &H0
End Enum
 
Shared Function GetFileInfo(ByVal sFile As String, _
	ByRef sFileType As String, ByRef vFileIcon As System.Drawing.Icon, _
	ByVal iIcon As IconTypes) As Boolean
 
    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(sFile, 0, shinfo, _
        	Marshal.SizeOf(shinfo), SHGFI_ICON Or iIcon Or _
        	SHGFI_TYPENAME)
 
		If Instr(1, shinfo.szDisplayName, Chr(0)) > 0 Then
			sFileType = Left(shinfo.szDisplayName, _
				Instr(1, shInfo.szDisplayName, Chr(0)) - 1)
		Else
			sFileType = shinfo.szDisplayName
		End If
		vFileIcon = System.Drawing.Icon.FromHandle(shinfo.hIcon)
		Return True
    Catch ex As Exception
        Return False
    End Try
 
End Function

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.