如何修改以下代码以包含文件路径

Question

如何修改以下代码以提供整个文件路径而不仅仅是文件名？

Sub GetFileNames()
Dim xRow As Long
Dim xDirect$, xFname$, InitialFoldr$

InitialFoldr$ = "C:\"
With Application.FileDialog(msoFileDialogFolderPicker)
    .InitialFileName = Application.DefaultFilePath & "\"
    .Title = "Please select a folder to list Files from"
    .InitialFileName = InitialFoldr$
    .Show
    If .SelectedItems.Count <> 0 Then
        xDirect$ = .SelectedItems(1) & "\"
        xFname$ = Dir(xDirect$, 7)
        Do While xFname$ <> ""
            ActiveCell.Offset(xRow) = xFname$
            xRow = xRow + 1
            xFname$ = Dir
        Loop
    End If
End With

End Sub

Answer 1

请尝试......

ActiveCell.Offset(xRow) = xDirect$ & xFname$