select folder

[ranesmitas]

hi i want to select folder in code so i did some code i.e

Private Const BIF_RETURNONLYFSIDIRS = 1
Private Const BIF_DONTGOBELOWDOMAIN = 2
Private Const MAX_PATH = 260
 
 
Private Declare Function SHBROWSERFORFOLDER Lib "shell32" (lpbi As BrowsInfo) As Long
Private Declare Function SHGETPATHFROMIDLIST Lib "shell32" (ByVal PIDLIST As Long, ByVal LPBUFFER As String) As Long
Private Declare Function LSTRCAT Lib "Kernel32" Alias "lstrcatA" (ByVal LPSTRING1 As String, ByVal LPSTRING2 As String) As Long
 
Private Type BrowsInfo
hWndOwner As Long
pIDLRoot As Long
pSZDisplayName As Long
lPSZTitle As Long
ulFlags As Long
lpfn_call_back As Long
lparam As Long
iImage As Long
End Type
Private Sub browser()
On Error Resume Next
Dim lpidlist As Long
Dim sbuffer As String
Dim sztitle As String
Dim tbrowseinfo As BrowsInfo
 
sztitle = "Compress and encrypt files(s) in folder"
 
With tbrowseinfo
.hWndOwner = Me.hWnd
.lPSZTitle = LSTRCAT(sztitle, " ")
.ulFlags = BIF_RETURNONLYFSIDIRS + BIF_DONTGOBELOWDOMAIN
End With
 
lpidlist = SHBROWSERFORFOLDER(tbrowseinfo)
 
If (lpidlist) Then
        sbuffer = Space(MAX_PATH)
        SHGETPATHFROMIDLIST lpidlist, sbuffer
        sbuffer = Left(sbuffer, InStr(sbuffer, vbnullclear) - 1)
        txtpath.Text = sbuffer
            If txtpath.Text = " " Then
            Exit Sub
            End If
End If
 
 
End Sub
 
 
Private Sub cmdselect_Click()
On Error GoTo cmdserr
If Text1.Text = "" Then
MsgBox " First code password"
Text1.SetFocus
Exit Sub
End If
Call browser
cmdserr:
kpathname = ""
MsgBox Err.Description
 
End Sub

but why its gives error that

can't find DLL entry point SHBROWSERFORFOLDER in shell32

please tell me

[debasisdas]

Please find more about SHBROWSERFORFOLDER.