VBA Excel - Empty Folder Name

Question

Dear All,

with this code I'm able to open the below FileDialogFolderPicker which allows to access the files of my computer:

    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = sInitialFolder
        If .Show = -1 Then
            lstCodeFile.Clear
            sFolder = .SelectedItems(1)
            txtCodeFileDirectory = sFolder
        Else
            Exit Sub
        End If
    End With

Any way to automatically fill the "Folder name" box with the value of the InitialFolder? (should be "Code")

Thanks

Answer 1

Remove the trailing backslash.

Answer 2

If the InitialFileName is "D:\MyPC\05 - Tool*Code*" the Folder name" box should be "Code" and not empty

![](https://learn-attachment.microsoft.com/api/attachments/527c4321-31ba-4ce2-b388-6c35bf410116?platform=QnA

Answer 3

Make a new file

Run the code below

Where is the issue?

Andreas.

Sub Test()
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = "qwe"
.Show
End With
End Sub