16 lines
425 B
VB.net
16 lines
425 B
VB.net
Imports System.Runtime.InteropServices
|
|
|
|
Namespace Native
|
|
|
|
Friend Structure SHFILEINFO
|
|
Public hIcon As IntPtr
|
|
Public iIcon As Integer
|
|
Public dwAttributes As UInteger
|
|
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)>
|
|
Public szDisplayName As String
|
|
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=80)>
|
|
Public szTypeName As String
|
|
End Structure
|
|
|
|
End Namespace
|