top of page

Excel VBA Code to Get List of files


This macro works perfectly to get a list of the PDFs (or any other file types) in a directory that you specify in a particular cell on an Excel worksheet.

So on the line beginning, Set objFolder = , you enter the range containing your file path. The file extensions of the files you want a list of are specified four lines down.

So in this example with a file path specified in B1 we get a list like this one, which is also helpful because it puts the file names in one column, and the file paths in another:

Sub GetList() Dim objFSO As Object Dim objFolder As Object Dim objFile As Object Dim i As Integer Dim temp As String 'Create an instance of the FileSystemObject Set objFSO = CreateObject("Scripting.FileSystemObject") 'Get the folder object Set objFolder = objFSO.GetFolder("" & Range("G1").Value & "") i = 1 'loops through each file in the directory and prints their names and path For Each objFile In objFolder.Files temp = objFSO.GetExtensionName(objFile.Name) If (temp = "pdf") + (temp = "txt") Then 'print file name Cells(i + 1, 7) = objFile.Name 'print file path Cells(i + 1, 8) = objFile.Path i = i + 1 End If Next objFile End Sub


Sean O'Shea has more than 20 years of experience in the litigation support field with major law firms in New York and San Francisco.   He is an ACEDS Certified eDiscovery Specialist and a Relativity Certified Administrator.

The views expressed in this blog are those of the owner and do not reflect the views or opinions of the owner’s employer.

If you have a question or comment about this blog, please make a submission using the form to the right. 

Your details were sent successfully!

© 2015 by Sean O'Shea . Proudly created with Wix.com

bottom of page