How to start browsing at an existing folder location

From: "Simon" <SvanBeekNL@xxxxxxxxxxx>
Date: Thu, 7 May 2009 09:01:50 +0200

Dear reader,

For browsing to a folder location I use the following code:

Public Function BrowseFolder(szDialogTitle As String) As String

Dim x As Long, bi As BROWSEINFO, dwIList As Long

Dim szPath As String, wPos As Integer

With bi

.hOwner = hWndAccessApp

.lpszTitle = szDialogTitle

.ulFlags = BIF_RETURNONLYFSDIRS

End With

dwIList = SHBrowseForFolder(bi)

szPath = Space$(512)

x = SHGetPathFromIDList(ByVal dwIList, ByVal szPath)

If x Then

wPos = InStr(szPath, Chr(0))

BrowseFolder = Left$(szPath, wPos - 1) & "\"

Else

BrowseFolder = ""

End If

End Function

With this code I always start on the root of the tree.

Is there a possibility to use the function so you start not on the root but
on an existing folder location in the tree?

Thanks for any help.

Kind regards,

Simon

.

Follow-Ups:
- Re: How to start browsing at an existing folder location
  - From: Terry Kreft

Prev by Date: Re: re-highlight multiselect list box
Next by Date: Re: re-highlight multiselect list box
Previous by thread: Re: Simplest Techniques for Migrating Reports to Intranet
Next by thread: Re: How to start browsing at an existing folder location
Index(es):
- Date
- Thread

Relevant Pages

Cancelling directory dialog box
... Private Type BrowseInfo ... Private Declare Function SHGetPathFromIDList Lib _ ... ByVal lpString2 As String) As Long ... Dim iNull As Integer ...
(microsoft.public.excel.programming)
Re: where did this come from, and why cant I find it in the VBP Guide to the win32 API?
... > Public Declare Function SHBrowseForFolder Lib "Shell32.dll" (bBrowse As ... ByVal sDir As String) As Long ... > Public Type BrowseInfo ... > Dim DESTPATH As String ...
(comp.lang.basic.visual.misc)
Re: How do i insert a Address Bar kind of drop down list within MS
... then have a neww toolbar button to do what you required. ... ByVal pszPath As String) As Long ... Private Type BROWSEINFO ... Dim bInfo As BROWSEINFO ...
(microsoft.public.excel.misc)
Re: Moving all files to a different location
... Private Type BrowseInfo ... Private Declare Sub CoTaskMemFree Lib "ole32.dll" ... lpString1 As String, ByVal lpString2 As String) As Long ... Dim iNull As Integer, lpIDList As Long, lResult As Long ...
(microsoft.public.excel.programming)
Re: Files in a directory?
... Private Type BrowseInfo ... ByVal lpString2 As String) As Long ... Dim Writerow As Long ... Sub ListMyFiles() ...
(microsoft.public.excel.misc)