Problem with the path selected by [.FileDialog(msoFileDialogFolderPicker).Show]

[lookingforK]

Hi,

I am using the following code to use Template.xlsx file that is under the path "C:\App":

Application.FileDialog(msoFileDialogFolderPicker).Show
 
strReportPath = CurDir ()
 
Set wkbDest = xl.Workbooks.Open(strReportPath & "\Template.xlsx")

But, I got error message, i.e.:
After I select the path "C:\App" in the popup folder picker dialog box, there is always an error message like: "C:\Template.xlsx cannot be found. Check your spelling, or try a different path.".

What's wrong?
Why I select "C:\App" but get "C:\" error? :banghead:

Thank you inadvance.

 

[boblarson]

The problem is using CurDir. You don't need it.

Just use

Dim fldg As FileDialog
 
Set fldg = Application.FileDialog(msoFileDialogFolderPicker)
 
fldg.Show
strReportPath = fldg.SelectedItems(1)

 

[pr2-eugin]

CurDir() returns normally the default Folder.. Try creating a FileDialog Object and take it from there.. something like..

    Dim fileDump As FileDialog
    Set fileDump = Application.FileDialog(msoFileDialogFolderPicker)
    fileDump.Show
    strReportPath = fileDump.SelectedItems(1)

 

[pr2-eugin]

Ha ha did not see you there Bob..

 

[lookingforK]

Thank you boblarson and pr2-eugin.

It works.