posted August 11, 2002 08:06 AM            

#Compile Exe
#Dim All
#Register None
#Include "Win32Api.Inc"
'______________________________________________________________________________
  
Function SpecialFolder(CSIDL As Long) As String
 'Many thanks to Semen Matusovski, routine posted February 12, 2001 08:05 AM
 Local pidl      as DWord
 Local TmpAsciiz as Asciiz * %MAX_PATH
  
  If IsFalse(SHGetSpecialFolderLocation(ByVal %HWND_DESKTOP, ByVal CSIDL, ByVal VarPtr(pidl))) Then
    SHGetPathFromIDList ByVal pidl, TmpAsciiz
    CoTaskMemFree ByVal pidl
    Function = TmpAsciiz
  End If
  
End Function
'______________________________________________________________________________
  
Function PbMain
 Local UserName          as Asciiz * %UNLEN
 Local QuickLaunchFolder as String
 Local Retval            as Long
  
 CoInitialize byval 0
 GetUserName UserName, SizeOf(UserName)
  
 QuickLaunchFolder = SpecialFolder(%CSIDL_APPDATA) & "\Microsoft\Internet Explorer\Quick Launch\"
 IF Len(Dir$(QuickLaunchFolder, 16)) then
   MsgBox "User: " & Ltrim$(UserName) & $CRLF & QuickLaunchFolder
 Else
   MsgBox "QuickLaunch not found!"
 End If
  
 CoUninitialize
  
End Function
'______________________________________________________________________________
  

  
-- Windows 95 (0, B, C) ----------------------------------------------------------------
For Windows 95-0 and Windows 95B, "Quick Launch" came with ie4
If  Windows 95-0 or Windows 95B had his ie updated from ie3 to ie5 
then no "Quick Launch" will be installed.
 
95c (Came with ie4)
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\GrpConv\MapGroups]
"Quick Launch"="C:\\WINDOWS\\Application Data\\Microsoft\\Internet Explorer\\Quick Launch"
 
-- Windows 98 se ------------------------------------------------------------------------
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\GrpConv\MapGroups]
"Quick Launch"="C:\\WINDOWS\\Application Data\\Microsoft\\Internet Explorer\\Quick Launch"
 
-- Windows Me -----------------------------------------------------------------------------
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\GrpConv\MapGroups]
"Quick Launch"="C:\\WINDOWS\\Application Data\\Microsoft\\Internet Explorer\\Quick Launch"
 
-- Windows NT4 sp6, with ie 40 ------------------------------------------------------------
For Windows NT4 "Quick Launch" came with ie4
If  Windows NT4 had his ie updated from ie3 to ie5 then no "Quick Launch" will be installed.
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\GrpConv\MapGroups]
"Quick Launch"="C:\\WINNTS\\Profiles\\"UserName"\\Application Data\\Microsoft\\Internet Explorer\\Quick Launch"
 
Valid for every "UserName"
 
-- Windows 2000 Pro ------------------------------------------------------------------------
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\GrpConv\MapGroups]
Exist but no "Quick Launch" key...
 
But can look in folder
C:\Documents and Settings\"UserName"\Application Data\Microsoft\Internet Explorer\Quick Launch
 
Valid for every "UserName"
Nothing in "All Users"
Nothing in "Default User"
 
-- Windows XP --------------------------------------------------------------------------------
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\GrpConv\MapGroups]
"Quick Launch"="C:\\Documents and Settings\\"UserName"\\Application Data\\Microsoft\\Internet Explorer\\Quick Launch"
  
Valid for every "UserName"
Nothing in "All Users"
Nothing in "Default User"
----------------------------------------------------------------------------------------------- 

posted June 30, 2006 12:48 PM            

-- Windows XP --------------------------------------------------------------------------------
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\GrpConv\MapGroups]
"Quick Launch"="C:\\Documents and Settings\\"UserName"\\Application Data\\Microsoft\\Internet Explorer\\Quick Launch"
Valid for every "UserName"
Nothing in "All Users"
Nothing in "Default User"
-----------------------------------------------------------------------------------------------

The above information makes you believe, that the name of the users directory would always be identical to 'UserName'. This is not always correct: if you reinstall a user under WinXP (maybe W2K as well) without cleaning out all stuff, the path might be something like

"Quick Launch"="C:\\Documents and Settings\\"UserName"."Domain"\\Application Data\\Microsoft\\Internet Explorer\\Quick Launch 
or
"Quick Launch"="C:\\Documents and Settings\\"UserName"."Domain".000\\Application Data\\Microsoft\\Internet Explorer\\Quick Launch 

The code sample itself is correct and will result in the correct path to the Quick Launch Folder.

------------------
TERRA Datentechnik

posted June 30, 2006 02:45 PM            

In win95 at one time, i had eventually, after reinstalling windows
more than once, had Windows3 as my 'windows' folder. So you
can't count on windows being the name of the windows folder always.

That makes the api calls more important and I do realize the
registry examples were just that -- examples.

------------------
Client Writeup for the CPA

buff_oasys@yahoo.com