Question re FileDialog(msoFileDialogFolderPicker)

[AlexanderBB]

Using the following code, the selected Folder name does not show in the
'Folder name:' comboBox one prior to 'OK'. Nothing appears except a choice from the dropdown list. Tried in Excel 2003 and 2007.

The function returns the right foldername though.

This is the same on 2 computers but a third (so I'm told) does show the name.

Function BrowseFolder()
 'Open the file dialog
Dim RetVal As String
Set BrowseFolder = Application.FileDialog(msoFileDialogFolderPicker)
With BrowseFolder
    .Show
    If BrowseFolder.SelectedItems.Count > 0 Then
        RetVal = .SelectedItems(1)
    End If
End With
BrowseFolder = RetVal
End Function

What should it do and can I make it show the foldername anyhow?

Thanks, ABB

[westconn1]

‘ Declare a variable as a FileDialog Object

Dim fd As FileDialog

‘ Declare a variable to capture the selected item

Dim varSI as Variant



‘ Create a FileDialog object as a Folder Picker dialog box

Set fd = Application.FileDialog(msoFileDialogFolderPicker)



With fd

.Title = “Select folder…” ‘What ever text you want

.AllowMultiSelect = False ‘Does not make much sense to set to true on FolderPicker

.ButtonName = “Select” ‘What ever makes sense. Default is OK

.IntialFileName = “G:\mydir” ‘To guide your user part of the way to where you need them to be

‘ Show the dialog and jump out if user presses cancel

If .Show <> -1 Then GoTo EndDialog

varSI = .SelectedItems(1) ‘use first entry because there will be only one

End With

from http://www.instantpages.ltd.uk/Office_FileDialog.htm
filedialog is not available in xl2000, so can not test

many dialogs can retain previous values if used in the same session, this maybe why it can work on 1 machine

[AlexanderBB]

That's giving me the same result, westconn. As you click on a Folder
the name is not displayed in the combo box to the left of the Select button.

This gives the impression nothing is selected.

Is this how it's meant to be ?

[westconn1]

well it is a file picker, not a folder browser

search on shbrowseforfolder

[AlexanderBB]

well it is a file picker, not a folder browser

Regardless, should the selected Folder name show in the combo box, or not?
The Details icon seems permenantly grayed out, too.

search on shbrowseforfolder

Thanks for the tip, but looks like not for VBA ??

Regards, ABB

[AlexanderBB]

Thanks for the tip, but looks like not for VBA ??

Oops, sorry ignore that. Got sidetracked... I'm aready using shbrowseforfolder
and wanted to use the FileDialogFolderPicker instead.

It works fine for someone with Vista and Excel 2007 but not XP and 2007.
Has anyone else had success with it?

Thanks, ABB

[Siddharth Rout]

Show me the workbook that you are using it in?

[AlexanderBB]

Hi Koolsid,

If you just run up a new Excel and paste in the code in Msg 1 in this thread - what do you get ?

I'll attach an image of results here. You can see the Selected Folder but no name in the combo box. Do you see a name there on your system ?

[Siddharth Rout]

Ok, I get it..

In that case, why don't you use this instead...

Sub Sample()
    FolderBrowser "C:"
End Sub

Function FolderBrowser(Optional DefaultLocation As Variant) As Variant
    Dim ShApp As Object
     
    Set ShApp = CreateObject("Shell.Application"). _
    BrowseForFolder(0, "Please choose a folder", 0, DefaultLocation)
     
    On Error Resume Next
    FolderBrowser = ShApp.self.Path
    On Error GoTo 0
     
    Set ShApp = Nothing
     
    Select Case Mid(FolderBrowser, 2, 1)
    Case Is = ":"
        If Left(FolderBrowser, 1) = ":" Then GoTo SubExit
    Case Is = "\"
        If Not Left(FolderBrowser, 1) = "\" Then GoTo SubExit
    Case Else
        GoTo SubExit
    End Select
     
    Exit Function
     
SubExit:
    FolderBrowser = False
End Function

[AlexanderBB]

Thanks Koolsid. That was worth a go, but doesn't let you go back a level if you re-use the last Path.
shbrowseforfolder can't remember last path and always starts at the root.
msoFileDialogFolderPicker is OK in Win7 but fails as described in XP.

If no more suggestions I'll detect the OS and use FilePicker or shbrowseforfolder.
Malcolm Fraser was right - life wasn't meant to be easy !

Regards, ABB

[westconn1]

in kools example
if you pass a value for defaultlocation the browse dialog should start at that level, you can store this from the last call

this is just using a shell object for the same as shbrowseforfolder

[AlexanderBB]

Yes, I understand... but the reason for looking at alternatives to shBrowseFolder was to store and return to the last path used.... avoiding having to navigate all the way back through the same folders again. But you need to be able to go both ways from there. A default location is not really the solution as it would have to be C:\ which takes us back where we were.

Just a pity FolderPicker works in Windows 7 and not XP, but finding why is far beyond me !

Thank you both for the help and suggestions, though.
Regards, ABB