Using msoFileDialogFolderPicker to select a folder

Question

Hello

The following code is written to allow the user to select the folder where they wish to save a PDF of the worksheet and the file name will consist of data located in cells D4 and D5.  It also checks to confirm that the data in cell D5 contains 3 characters.  The code works fine but with one issue.  If the user drills down say 4 levels of subfolders the file does not save in the folder, it saves in the folder one level up. 

I can't figure out why the file is not saved it the folder selected.

Can someone indicate what I am missing?

Thank you

Answer 1

Hi

Have a try with this

Dim strCurrDir As String

Dim fldpath As String

Debug.Print CurDir

strCurrDir = CurDir 'keep track of current directory

Application.FileDialog(msoFileDialogFolderPicker).Show

Debug.Print CurDir

fldpath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)

ChDir fldpath 'chang to the new directory

Debug.Print CurDir

'Do your stuff

ChDir strCurrDir 'reset to previous current directory

End Sub

HTH

Regards

JY

Answer 2

Hi

You are welcome. Glad to help.

Regards

JY