A little help please on a macro to display results.

D

Dave

I have the code listed below that searchs a folder and if it finds any
PDF files its displays them with a hyperlink in the spreadsheet. My
problem is that under the MAIN folder I have tons of files now and its
very hard to find the PDF I am looking for.. I redid my file
structire under main and now I have folders for years 2010,
2012,2013,2014,2015 and so on. Under each years directory are the
directories for the 12 months of the year & under each of these months
I have two folders A-cast & B-cast.

What I would like is that the code could search the folders starting
form MAIN by prompting the user for the year, & than the month & then
the folder name And then display contents of the folder as results
on the spreadsheet

If a user did not have lets say the folder names A-cast & B-cast the
program could display contents of both A-cast & B-cast.

Here is the code I got from the forum.

Sub all_2010()
' Macro to searh & display PDf files
Dim i As Long
With Application.FileSearch
.NewSearch
.SearchSubFolders = True
.Filename = "*.pdf"
.LookIn = "c:\Scans\TW\MAIN\2010"
.Execute
For i = 1 To .FoundFiles.Count
ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), _
Address:=.FoundFiles(i), TextToDisplay:= _
Right(.FoundFiles(i), Len(.FoundFiles(i)) - _
InStrRev(.FoundFiles(i), "\"))
Next
End With
End Sub


thanks in advance
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top