Select current folder instead of browsing folder

[sudarshan]

Hi ,

currently using this code to browse a folder :-
objWindowsFolder = objShell.BrowseForFolder(0, "Select a Windows folder:", 0, "")

I want to change it , so that it selects the current workbook folder automatically instead of browsing and selecting the folder. Please help.

 

[footoo]

ChDir Application.ActiveWorkbook.Path
Application.GetOpenFilename ("All Files,*.*")

 

[Norie]

Perhaps.

objWindowsFolder = objShell.BrowseForFolder(0, "Select a Windows folder:", 0, ThisWorkbook.Path)

Note, if you use the above the user can't browse to a folder higher up than the folder you've specified.

 

[sudarshan]

Thank you Norie. This is what i was looking for.