Path does not exist, check the path and try again

[josros60]

Hi,

I using the code below but getting this error "Path does not exist, check the path and try again" another question how get it save the file with name based on cell name.

here is the code:

Option Explicit
Sub ChooseFolder()
Dim dlgSaveFolder As FileDialog
Dim sFolderPathForSave As String
'''
'Open a Folder picker dialog box.
Set dlgSaveFolder = Application.FileDialog(msoFileDialogFolderPicker)
With dlgSaveFolder
.Title = "Select a Folder"
.AllowMultiSelect = False
.InitialFileName = ThisWorkbook.Path & "\"
If .Show <> -1 Then GoTo CancelFolderSelection
sFolderPathForSave = .SelectedItems(1)
End With
Set dlgSaveFolder = Nothing
'''
'File saving code goes here.
'''
CancelFolderSelection:
End Sub

Thank you,

 

[rlv01]

I ran your code as-is and I don't get any errors. What line is producing your error?

 

[Sektor]

If .Show <> -1 Then GoTo CancelFolderSelection

could be re-written as:

If Not .Show() Then Exit Sub

And, of course, remove CancelFolderSelection: before End Sub.
Also, as @rlv01 said, there's nothing wrong with your code. Show us screenshot of what you choose in dialog box.

 

[josros60]

worked!

Thank you

 

[Sektor]

You're welcome!