Given path folder names in to Excel Sheets

harinsh

Active Member
Joined
Feb 7, 2012
Messages
262
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
 

Some videos you may like

Excel Facts

Difference between two dates
Secret function! Use =DATEDIF(A2,B2,"Y")&" years"&=DATEDIF(A2,B2,"YM")&" months"&=DATEDIF(A2,B2,"MD")&" days"

patel45

Well-known Member
Joined
Jul 15, 2012
Messages
1,953
Code:
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

Active Member
Joined
Feb 7, 2012
Messages
262
Hi Patel45

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

Cheers,
 

Watch MrExcel Video

Forum statistics

Threads
1,118,400
Messages
5,571,905
Members
412,423
Latest member
monbri9931
Top