Hepl required in using Browseforfolder command 1

[arunmd1]

Hi friends,
I am a creating a tool in Excel using VBA. In that once the user click on "Load" button, the tool should allow the user to select the folder which contains the input files. By default the path of selection will be starting from Desktop.
Now if i specify the (starting) path from which the usr has to select a file, it is not allowing the usr to go to the levels above the starting path. Is there a way to avoid this ?

My snippet is :

Dim Openat as variant

Openat = "E:\ExcelViewer"
Set shellObj = CreateObject("Shell.Application")
Set fldr = shellObj.BrowseForFolder(0, "Select folder containing input files", Openat)
If fldr Is Nothing Then
Exit Sub
End If

Here i am not not able to select any folders above this startin path "E:\ExcelViewer". In some cases this can happen.

Suggest a solution?

 

[macropod]

Hi arunmd1,

That's the way the BrowseForFolder method works, and you can't change it. See:

http://msdn.microsoft.com/en-us/library/bb774065(VS.85).aspx

If you want your users to have access to a higher level, then you'll have to specify that as the root folder.

Cheers

[MS MVP - Word]

 

[arunmd1]

Hi guys ,
I got the solution.Anyways thanks macropad.

With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Show
End With

fldr = Application.FileDialogmsoFileDialogFolderPicker).SelectedItems(1)

'Code to get the files available in the user selected folder
Set fs = CreateObject("Scripting.FileSystemObject")
Set fl1 = fs.Getfolder(fldr)