Help on a macro please

[Dave]

I have the code listed below that searches 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 structure 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"
.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

 

[Bob Phillips]

Sub all_2010()
' Macro to searh & display PDf files
Dim i As Long
Dim fldr As String

With Application.FileDialog(msoFileDialogFolderPicker)

.AllowMultiSelect = False
.InitialFileName = "c:\Scans\TW\MAIN\"
.Title = "Select target folder"
If .Show = -1 Then

fldr = .SelectedItems(1)

With Application.FileSearch
.NewSearch
.SearchSubFolders = True
.Filename = "*.pdf"
.LookIn = fldr
.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 If
End With
End Sub


HTH

Bob