Re: How to start browsing at an existing folder location

Look at
http://www.lebans.com/callbackbrowser.htm



--
Terry Kreft


"Simon" <SvanBeekNL@xxxxxxxxxxx> wrote in message
news:4a02bc0a$0$13210$bf4948fe@xxxxxxxxxxxxxxxx
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




.

Relevant Pages

  • Re: Browse for a folder
    ... Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias _ ... Public Function BrowseFolder(szDialogTitle As String) As String ... Dim X As Long, bi As BROWSEINFO, dwIList As Long ... X = SHGetPathFromIDList(ByVal dwIList, ByVal szPath) ...
    (comp.databases.ms-access)
  • How to start browsing at an existing folder location
    ... 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 ...
    (comp.databases.ms-access)
  • file delete routine is intermittent
    ... Private Function FilesCountAll(sSource As String, sFileType As String) As Long ... Dim WFD As WIN32_FIND_DATA ... The folder location is determined in another function and verified to exist before this ...
    (microsoft.public.vb.winapi)
  • Search pattern
    ... Dim strfile As String ... Dim bAddressFound As Boolean ... Dim strCurrentChar As String ...
    (comp.databases.ms-access)
  • Auto Write Name and Merge across
    ... Dim Sheetname01 As String ... Dim WeekName01 As String ...
    (microsoft.public.excel.misc)
Loading