Folder selection?? (RESOLVED)

[weiyen]

How do I do folder selection (directory selection) using something like what common dialog will produce.

using common dialog, I can onlt select files not the directory.

VBA doesn't seems to have the DirList and DriveList controls that VB have to use.

Thanks

[peet]

try using the SHBrowseForFolder api

[peet]

sample

Option Explicit
 
Public Type BrowseInfo
     hwndOwner As Long
     pIDLRoot As Long
     pszDisplayName As Long
     lpszTitle As Long
     ulFlags As Long
     lpfnCallback As Long
     lParam As Long
     iImage As Long
End Type
 
Public Const BIF_RETURNONLYFSDIRS = 1
Public Const BIF_NEWDIALOGSTYLE = &H40
 
Public Const MAX_PATH = 260
Public Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
Public Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Public Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Public Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
 
Public Function BrowseForFolder(hwndOwner As Long, sPrompt As String) As String
     
    'declare variables to be used
     Dim iNull As Integer
     Dim lpIDList As Long
     Dim lResult As Long
     Dim sPath As String
     Dim udtBI As BrowseInfo
 
    'initialise variables
     With udtBI
        .hwndOwner = hwndOwner
        .lpszTitle = lstrcat(sPrompt, "")
        .ulFlags = BIF_RETURNONLYFSDIRS + BIF_NEWDIALOGSTYLE
     End With
 
    'Call the browse for folder API
     lpIDList = SHBrowseForFolder(udtBI)
     
    'get the resulting string path
     If lpIDList Then
        sPath = String$(MAX_PATH, 0)
        lResult = SHGetPathFromIDList(lpIDList, sPath)
        Call CoTaskMemFree(lpIDList)
        iNull = InStr(sPath, vbNullChar)
        If iNull Then sPath = Left$(sPath, iNull - 1)
     End If
 
    'If cancel was pressed, sPath = ""
     BrowseForFolder = sPath
 
End Function
 
 
'usage : 
Private Sub Form_Click()
    MsgBox BrowseForFolder(Me.hWnd, "select folder")
End Sub

[weiyen]

I've tried the codes provided, howver, i was slapped with the following error.

me.hwnd
Compile Error:
Method or data member not found

Please advice.. Thanks

[peet]

try using the form name instead of Me

like

'usage : 
Private Sub Form_Click()
    MsgBox BrowseForFolder(Form1.hWnd, "select folder")
End Sub

[weiyen]

Thanks,
That doesn't work either... However, I managed to get it working by using 0 in place of me.hwnd

Another question:

Is there a way to set the default folder?

[peet]

yes there is.

take a look at this great sample : http://www.planetsourcecode.com/vb/s...22276&lngWId=1

[weiyen]

Thank you very much... you are way cool man!!

[peet]

cool as the weather here at the mo... brrr....