<div>
<a href="http://msdn.microsoft.com/en-us/library/aa370810(VS.85).aspx" rel="ugc">http://msdn.microsoft.com/en-us/library/aa370810(VS.85).aspx</a> 
 
 
<a href="http://www.vbforums.com/showthread.php?t=559239" rel="ugc">http://www.vbforums.com/showthread.php?t=559239</a> 
 
<a href="http://msdn.microsoft.com/en-us/library/bb762188(VS.85).aspx" rel="ugc">http://msdn.microsoft.com/en-us/library/bb762188(VS.85).aspx</a> 
 
 
 
 
 
 
Private Const CSIDL_ADMINTOOLS &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; As Long = &amp;H30 &nbsp; '{user}\Start Menu _ &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;'\Programs\Administrative Tools 
Private Const CSIDL_COMMON_ADMINTOOLS &nbsp; &nbsp;As Long = &amp;H2F &nbsp; '(all users)\Start Menu\Programs\Administrative Tools 
Private Const CSIDL_APPDATA &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;As Long = &amp;H1A &nbsp; '{user}\Application Data 
Private Const CSIDL_COMMON_APPDATA &nbsp; &nbsp; &nbsp; As Long = &amp;H23 &nbsp; '(all users)\Application Data 
Private Const CSIDL_COMMON_DOCUMENTS &nbsp; &nbsp; As Long = &amp;H2E &nbsp; '(all users)\Documents 
Private Const CSIDL_COOKIES &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;As Long = &amp;H21 
Private Const CSIDL_HISTORY &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;As Long = &amp;H22 
Private Const CSIDL_INTERNET_CACHE &nbsp; &nbsp; &nbsp; As Long = &amp;H20 &nbsp; 'Internet Cache folder 
Private Const CSIDL_LOCAL_APPDATA &nbsp; &nbsp; &nbsp; &nbsp;As Long = &amp;H1C &nbsp; '{user}\Local Settings\Application Data (non roaming) 
Private Const CSIDL_MYPICTURES &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; As Long = &amp;H27 &nbsp; 'C:\Program Files\My Pictures 
Private Const CSIDL_PERSONAL &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; As Long = &amp;H5 &nbsp; &nbsp;'My Documents 
Private Const CSIDL_PROGRAM_FILES &nbsp; &nbsp; &nbsp; &nbsp;As Long = &amp;H26 &nbsp; 'Program Files folder 
Private Const CSIDL_PROGRAM_FILES_COMMON As Long = &amp;H2B &nbsp; 'Program Files\Common 
Private Const CSIDL_SYSTEM &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; As Long = &amp;H25 &nbsp; 'system folder 
Private Const CSIDL_WINDOWS &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;As Long = &amp;H24 &nbsp; 'Windows directory or SYSROOT() 
Private Const CSIDL_FLAG_CREATE = &amp;H8000&amp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'combine with CSIDL_ value to force 
Private Const MAX_PATH = 260 
 
' 
' Other Special Folder CSIDLs not supported 
' by this API. 
' 
'Private Const CSIDL_ALTSTARTUP As Long = &amp;H1D &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'non localized startup 
'Private Const CSIDL_BITBUCKET As Long = &amp;HA &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; '{desktop}\Recycle Bin 
'Private Const CSIDL_CONTROLS As Long = &amp;H3 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;'My Computer\Control Panel 
'Private Const CSIDL_DESKTOP As Long = &amp;H0 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; '{namespace root} 
'Private Const CSIDL_DESKTOPDIRECTORY As Long = &amp;H10 &nbsp; &nbsp; &nbsp; '{user}\Desktop 
'Private Const CSIDL_FAVORITES As Long = &amp;H6 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; '{user}\Favourites 
'Private Const CSIDL_FONTS As Long = &amp;H14 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;'windows\fonts 
'Private Const CSIDL_INTERNET As Long = &amp;H1 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;'Internet virtual folder 
'Private Const CSIDL_DRIVES As Long = &amp;H11 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'My Computer 
'Private Const CSIDL_NETHOOD As Long = &amp;H13 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;'{user}\nethood 
'Private Const CSIDL_NETWORK As Long = &amp;H12 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;'Network Neighbourhood 
'Private Const CSIDL_PRINTERS As Long = &amp;H4 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;'My Computer\Printers 
'Private Const CSIDL_PRINTHOOD As Long = &amp;H1B &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;'{user}\PrintHood 
'Private Const CSIDL_PROGRAM_FILESX86 As Long = &amp;H2A &nbsp; &nbsp; &nbsp; 'Program Files folder for x86 apps (Alpha) 
'Private Const CSIDL_PROGRAMS As Long = &amp;H2 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;'Start Menu\Programs 
'Private Const CSIDL_PROGRAM_FILES_COMMONX86 As Long = &amp;H2C 'x86 \Program Files\Common on RISC 
'Private Const CSIDL_RECENT As Long = &amp;H8 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;'{user}\Recent 
'Private Const CSIDL_SENDTO As Long = &amp;H9 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;'{user}\SendTo 
'Private Const CSIDL_STARTMENU As Long = &amp;HB &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; '{user}\Start Menu 
'Private Const CSIDL_STARTUP As Long = &amp;H7 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'Start Menu\Programs\Startup 
'Private Const CSIDL_SYSTEMX86 As Long = &amp;H29 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;'system folder for x86 apps (Alpha) 
'Private Const CSIDL_TEMPLATES As Long = &amp;H15 
'Private Const CSIDL_PROFILE As Long = &amp;H28 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;'user's profile folder 
'Private Const CSIDL_COMMON_ALTSTARTUP As Long = &amp;H1E &nbsp; &nbsp; &nbsp;'non localized common startup 
'Private Const CSIDL_COMMON_DESKTOPDIRECTORY As Long = &amp;H19 '(all users)\Desktop 
'Private Const CSIDL_COMMON_FAVORITES As Long = &amp;H1F &nbsp; &nbsp; &nbsp; '(all users)\Favourites 
'Private Const CSIDL_COMMON_PROGRAMS As Long = &amp;H17 &nbsp; &nbsp; &nbsp; &nbsp;'(all users)\Programs 
'Private Const CSIDL_COMMON_STARTMENU As Long = &amp;H16 &nbsp; &nbsp; &nbsp; '(all users)\Start Menu 
'Private Const CSIDL_COMMON_STARTUP As Long = &amp;H18 &nbsp; &nbsp; &nbsp; &nbsp; '(all users)\Startup 
'Private Const CSIDL_COMMON_TEMPLATES As Long = &amp;H2D &nbsp; &nbsp; &nbsp; '(all users)\Templates 
' &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;'create on SHGetSpecialFolderLocation() 
'Private Const CSIDL_FLAG_DONT_VERIFY = &amp;H4000 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'combine with CSIDL_ value to force 
' &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;'create on SHGetSpecialFolderLocation() 
 
Private Const CSIDL_FLAG_MASK = &amp;HFF00 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;'mask for all possible flag values 
Private Const SHGFP_TYPE_CURRENT = &amp;H0 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;'current value for user, verify it exists 
Private Const SHGFP_TYPE_DEFAULT = &amp;H1 
Private Const S_OK = 0 
Private Const S_FALSE = 1 
Private Const E_INVALIDARG = &amp;H80070057 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Invalid CSIDL Value 
 
 
 
 
 
 
 
 
 
 
 
 
Private Declare Function SHGetFolderPath Lib &quot;shfolder&quot; _ 
&nbsp; &nbsp; &nbsp; &nbsp; Alias &quot;SHGetFolderPathA&quot; (ByVal hWndOwner As Long, _ 
&nbsp; &nbsp; &nbsp; &nbsp; ByVal nFolder As Long, ByVal hToken As Long, _ 
&nbsp; &nbsp; &nbsp; &nbsp; ByVal dwFlags As Long, ByVal pszPath As String) As Long 
 
 
 
 
Example: 
&nbsp; &nbsp; &nbsp; &nbsp; 
Public Function PathToProgramFiles() As String 
Dim strBuffer &nbsp;As String 
Dim strPath &nbsp; &nbsp;As String 
Dim lngReturn &nbsp;As Long 
Dim lngCSIDL &nbsp; As Long 
 
lngCSIDL = CSIDL_PROGRAM_FILES 
&nbsp; 
&nbsp;strPath = String(MAX_PATH, 0) 
&nbsp; 
&nbsp;' Get the folder's path. If the 
&nbsp; &nbsp; &nbsp; &nbsp; ' &quot;Create&quot; flag is used, the folder will be created 
&nbsp; &nbsp; &nbsp; &nbsp; ' if it does not exist. 
&nbsp; &nbsp; &nbsp; &nbsp; ' 
&nbsp; &nbsp; &nbsp; &nbsp; lngReturn = SHGetFolderPath(0, lngCSIDL, 0, SHGFP_TYPE_CURRENT, strPath) 
&nbsp; &nbsp; &nbsp; &nbsp; 'lngReturn = SHGetFolderPath(0, lngCSIDL Or CSIDL_FLAG_CREATE, 0, SHGFP_TYPE_CURRENT, strPath) 
 
PathToProgramFiles = Left$(strPath, InStr(1, strPath, Chr(0)) - 1) 
 
End Function 
 

</div>

<div>
<div class="content wysiwyg-content">
Does anyone know of a function to get the KnownFolderIDs for Vista
</div>
</div>

Does anyone know of a function to get the KnownFolderIDs for Vista

Function to get KnownFolderID api for vista

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.