• Home
 · 
• Windows System Services
 · 
• Browse Folders Dialog

Browse Folders Dialog

Browse Folders Dialog

API Declarations



Public Type SHITEMID 'mkid
cb As Long
abID As Byte
End Type

Public Type ITEMIDLIST 'idl
mkid As SHITEMID
End Type

Public Type BROWSEINFO 'bi
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

Public Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" _ (ByVal pidl As Long, ByVal pszPath As String) As Long

Public Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" _ (lpBrowseInfo As BROWSEINFO) As Long

Public Const BIF_RETURNONLYFSDIRS = &H1



Rate Browse Folders Dialog

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Dim bi As BROWSEINFO 
Dim IDL As ITEMIDLIST 
Dim pidl As Long 
Dim r As Long 
Dim pos As Integer 
Dim spath As String 
bi.hOwner = Me.hWnd
bi.pidlRoot = 0&
bi.lpszTitle = "Select your Windows\System\ directory"
bi.ulFlags = BIF_RETURNONLYFSDIRS
pidl& = SHBrowseForFolder(bi)
spath$ = Space$(512)
r = SHGetPathFromIDList(ByVal pidl&, ByVal spath$) 
If r Then
pos = InStr(spath$, Chr$(0)) 
lblSelected = Left(spath$, pos - 1) 
Else: lblSelected = "" 
End If
End Sub