Attached is the spreadsheet fetches all the files from the particular folder.

After fetching the file names into Column C, using right, left, choose and logical functions


Created and edited by Bala Sesharao

Option Explicit

Sub GetFileNames()

Dim x_coordinate As Long
Dim x_directory, x_Filename$, InitialFoldr$

InitialFoldr$ = "G:\" '<<< Startup folder to begin searching from

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