Paste file name and extension using file explorer

[Ace71425]

See code below....

Sub GetFilePath()Set myFile = Application.FileDialog(msoFileDialogOpen)
With myFile
    .Title = "Choose File"
    .AllowMultiSelect = True
    If .Show <> -1 Then
        Exit Sub
    End If
    For I = 1 To .SelectedItems.Count
        Range("K" & Rows.Count).End(xlUp).Offset(1) = .SelectedItems(I)
    Next I
End With
End Sub

I have this code to open a file explorer and let you select one or more files and then paste the file path to the next available K cell. I want the code to post just the file name and not the full path. How would I do this??? Thanks in advance!!!! PS I would like it to paste the file extension too...So file name and file extension

 

[Jaafar Tribak]

Maybe this :

Sub GetFilePath()
Set myFile = Application.FileDialog(msoFileDialogOpen)
With myFile
    .Title = "Choose File"
    .AllowMultiSelect = True
    If .Show <> -1 Then
        Exit Sub
    End If
    For I = 1 To .SelectedItems.Count
        Range("K" & Rows.Count).End(xlUp).Offset(1) = Right(.SelectedItems(I), Len(.SelectedItems(I)) - InStrRev(.SelectedItems(I), "\"))
    Next I
End With
End Sub

 

[dmartin35]

See below. Inside the For loop I put the full file name into a string variable then used the Dir() function to return the file name and extension only(without the path).

Sub GetFilePath()

Set myFile = Application.FileDialog(msoFileDialogOpen)

With myFile
  .Title = "Choose File"
  .AllowMultiSelect = True
  If .Show <> -1 Then
    Exit Sub
  End If
  For I = 1 To .SelectedItems.Count
    s=.SelectedItems(I)
    Range("K" & Rows.Count).End(xlUp).Offset(1) = Dir(s)
  Next I
End With

End Sub

Hope this helps.