The views expressed in this blog are those of the owner and do not reflect the views or opinions of the owner’s employer. All content provided on this blog is for informational purposes only. The owner of this blog makes no representations as to the accuracy or completeness of any information on this site or found by following any link on this site. The owner will not be liable for any errors or omissions in this information nor for the availability of this information. The owner will not be liable for any losses, injuries, or damages from the display or use of this information. This policy is subject to change at any time. The owner is not an attorney, and nothing posted on this site should be construed as legal advice. Litigation Support Tip of the Night does not provide confirmation that any e-discovery technique or conduct is compliant with legal, regulatory, contractual or ethical requirements.
Featured on the ACEDS blog.
Follow me on Twitter and see How-To Videos on my YouTube channel.
New tips for paralegals and litigation support profesionals are posted to this site each night. Click on the blog headings for better detail.
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