Given path folder names in to Excel Sheets

[harinsh]

Hi Team,

Can any one provide me the macro code for the below requirement.
I have number of folders where need to save huge number of files in it on everyday.

I need a macro code/solution to extract the given path folder data in to excel sheet (only the file names in the list format). Manually it would take more time in order to copy/paste the file names in to the excel sheet.

Looking forward your help.

Thanks in advance.
Harish

 

[patel45]

Private Sub GetFileNames_click()
    Dim xRow As Long
    Dim xDirect$, xFname$, InitialFoldr$
    InitialFoldr$ = "D:\"    '<<< 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
            xDirect$ = .SelectedItems(1) & "\"
            xFname$ = Dir(xDirect$, 7)
            Do While xFname$ <> ""
                Range("A2").Select
'                ActiveCell.Offset(xRow) = xDirect$ & xFname$
                ActiveCell.Offset(xRow) = xFname$
                xRow = xRow + 1
                xFname$ = Dir
            Loop
         End If
    End With
End Sub

 

[harinsh]

Hi Patel45

Great!!!! Thanks for your code it is working fine.

Cheers,