I would like to select a folder and use BrowseForFolder.
This works fine but does not show the shortcuts so that I browse through
these.

Anyone an idea that allows me to work with shortcuts as well to get to my
final directory destination?

Thanks but how does this work in VB (in an excel macro)?



"joel" wrote:

>
> Below is the method using the Win32 DLL. If htis can't get what you are
> looking for then you would have to create you own listbox and put the
> w\items you are looking for into the list box.
>
> Here is the microsoft website library definition.
>
> 'SHBrowseForFolder Function ()'
> (http://msdn.microsoft.com/en-us/library/bb762115(VS.85).aspx)
>
> There is a paragraph in the above website the talks about SHORTCUT.
>
>
> Private Type BROWSEINFO
> hOwner As Long
> pidlRoot As Long
> pszDisplayName As String
> lpszTitle As String
> ulFlags As Long
> lpfn As Long
> lParam As Long
> iImage As Long
> End Type
>
> Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias _
> "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) _
> As Long
>
> Sub test()
>
> Dim bi As BROWSEINFO
> Dim dwIList As Long
>
> dwIList = SHBrowseForFolder(bi)
>
> End Sub
>
>
> --
> joel
> ------------------------------------------------------------------------
> joel's Profile: http://www.thecodecage.com/forumz/member.php?userid=229
> View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=149959
>
> <a href="http://www.thecodecage.com">Microsoft Office Help</a>
>
> .
>

Thanks, but how does this work in VB (excel macro)?

"joel" wrote:

>
> Below is the method using the Win32 DLL. If htis can't get what you are
> looking for then you would have to create you own listbox and put the
> w\items you are looking for into the list box.
>
> Here is the microsoft website library definition.
>
> 'SHBrowseForFolder Function ()'
> (http://msdn.microsoft.com/en-us/library/bb762115(VS.85).aspx)
>
> There is a paragraph in the above website the talks about SHORTCUT.
>
>
> Private Type BROWSEINFO
> hOwner As Long
> pidlRoot As Long
> pszDisplayName As String
> lpszTitle As String
> ulFlags As Long
> lpfn As Long
> lParam As Long
> iImage As Long
> End Type
>
> Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias _
> "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) _
> As Long
>
> Sub test()
>
> Dim bi As BROWSEINFO
> Dim dwIList As Long
>
> dwIList = SHBrowseForFolder(bi)
>
> End Sub
>
>
> --
> joel
> ------------------------------------------------------------------------
> joel's Profile: http://www.thecodecage.com/forumz/member.php?userid=229
> View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=149959
>
> <a href="http://www.thecodecage.com">Microsoft Office Help</a>
>
> .
>

Joel, this is functioning but does NOT list my shortcuts to jump quickly to
my desired directories.
I am looking for a solution that also lists the shortcuts (and allows user
to doubleclick on it).

rob

"Simon Lloyd" wrote:

>
> *How to add and run a Macro*
> 1. *Copy* the macro
> 2. Open your workbook
> 3. Press the keys *ALT+F11* to open the Visual Basic Editor
> 4. Press the keys *ALT+I* to activate the *Insert menu*
> 5. *Press M* to insert a *Standard Module*
> 6. *Paste* the code by pressing the keys *CTRL+V*
> 7. Make any custom changes to the macro if needed at this time.
> 8. *Save the Macro* by pressing the keys *CTRL+S*
> 9. Press the keys *ALT+Q* to exit the Editor, and return to Excel.
>
> *To Run the Macro...*
> To run the macro from Excel, open the workbook, and press *ALT+F8* to
> display the *Run Macro Dialog*. Double Click the macro's name to *Run*
> it.
>
> rob;545832 Wrote:
> > Thanks, but how does this work in VB (excel macro)?
> >
> > "joel" wrote:
> >
> > >
> > > Below is the method using the Win32 DLL. If htis can't get what you
> > are
> > > looking for then you would have to create you own listbox and put the
> > > w\items you are looking for into the list box.
> > >
> > > Here is the microsoft website library definition.
> > >
> > > 'SHBrowseForFolder Function ()'
> > > ('SHBrowseForFolder Function ()'
> > (http://msdn.microsoft.com/en-us/library/bb762115(VS.85).aspx))
> > >
> > > There is a paragraph in the above website the talks about SHORTCUT.
> > >
> > >
> > > Private Type BROWSEINFO
> > > hOwner As Long
> > > pidlRoot As Long
> > > pszDisplayName As String
> > > lpszTitle As String
> > > ulFlags As Long
> > > lpfn As Long
> > > lParam As Long
> > > iImage As Long
> > > End Type
> > >
> > > Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias _
> > > "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) _
> > > As Long
> > >
> > > Sub test()
> > >
> > > Dim bi As BROWSEINFO
> > > Dim dwIList As Long
> > >
> > > dwIList = SHBrowseForFolder(bi)
> > >
> > > End Sub
> > >
> > >
> > > --
> > > joel
> > >
> > ------------------------------------------------------------------------
> > > joel's Profile: 'The Code Cage Forums - View Profile: joel'
> > (http://www.thecodecage.com/forumz/member.php?userid=229)
> > > View this thread: 'Browse for folder (but with shortcuts) - The Code
> > Cage Forums' (http://www.thecodecage.com/forumz/sh...d.php?t=149959)
> > >
> > > <a href="http://www.thecodecage.com">Microsoft Office Help</a>
> > >
> > > .
> > >
>
>
> --
> Simon Lloyd
>
> Regards,
> Simon Lloyd
> 'Microsoft Office Help' (http://www.thecodecage.com)
> ------------------------------------------------------------------------
> Simon Lloyd's Profile: http://www.thecodecage.com/forumz/member.php?userid=1
> View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=149959
>
> Microsoft Office Help
>
> .
>