Counting excel files or pdf files in a folder

Hiport

Active Member
Joined
May 9, 2008
Messages
455
Hi, is there a way to get a count of the number of excel files or pdf files in a folder, at the moment i have to manually count the number of files but if I have 100 + files its very time consuming
 

Some videos you may like

Excel Facts

Remove leading & trailing spaces
Save as CSV to remove all leading and trailing spaces. It is faster than using TRIM().

John_w

MrExcel MVP
Joined
Oct 15, 2007
Messages
6,616
Try this:
Code:
Public Sub Tester()
    MsgBox Count_Files("F:\temp\excel", "*.xls")        'Change to suit
End Sub

Private Function Count_Files(folder As String, matchingFilename As String) As Long

    Dim filename As String
    
    If Right(folder, 1) <> "\" Then folder = folder & "\"
       
    Count_Files = 0
    filename = Dir(folder & matchingFilename, vbNormal)
    While Len(filename) <> 0
        Count_Files = Count_Files + 1
        filename = Dir()  ' Get next matching file
    Wend

End Function
 

Hiport

Active Member
Joined
May 9, 2008
Messages
455
Hi there, the code is not flexible, is there a way where i can open a dialogue box and i can choose the folder? This will be used by my team so i can ask them to change the file extension every time they want to use it

Try this:
Code:
Public Sub Tester()
    MsgBox Count_Files("F:\temp\excel", "*.xls")        'Change to suit
End Sub
 
Private Function Count_Files(folder As String, matchingFilename As String) As Long
 
    Dim filename As String
 
    If Right(folder, 1) <> "\" Then folder = folder & "\"
 
    Count_Files = 0
    filename = Dir(folder & matchingFilename, vbNormal)
    While Len(filename) <> 0
        Count_Files = Count_Files + 1
        filename = Dir()  ' Get next matching file
    Wend
 
End Function
 

Watch MrExcel Video

Forum statistics

Threads
1,122,694
Messages
5,597,571
Members
414,156
Latest member
WDMix

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top