Search through folders and subfolders to find a file and open it.

lance01

New Member
Joined
Dec 12, 2013
Messages
15
Hi I have started this macro but I am having a problem (Labeled '????? below).
I am tring to find a file which is typically .doc/docx/.pdf within a folder or its subbfolders then open it if found.

Can anyone modify my solution below to to alos searchthrough all subfolders?
file = Dir(ThisWorkbook.path & "\" & "SOMErandomFOLDER\" & "SOMEotherRandomFOLDER\" &docrefno & "*" & issue & ".*")
Thanks for yout time+help :)


Sub documentopener()
Dim addup As String
Dim docrefno As String
Dim issue As String
Dim path As String
Dim file As String

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Turns off screen updating and displays to stop screen flashing
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' sets variables
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
docrefno = Range("b" & (ActiveCell.Row)).Value
issue = Range("c" & (ActiveCell.Row)).Value

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Checks the user wants to run the macro Y/ N
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Response = MsgBox("Are you sure you want to open " & docrefno & " Issue " & issue & "?", vbYesNo)
If Response = vbNo Then Exit Sub


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Searches specific folder and all its subfolders until it finds a file that has the title of the variables
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'???????????

file = Dir(ThisWorkbook.path & "\" & "FOLDER\" & docrefno & "*" & issue & ".*")

ActiveWorkbook.FollowHyperlink (file), NewWindow:=True


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Turns back on Screen and Display Alerts
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub
 

Some videos you may like

Excel Facts

Show numbers in thousands?
Use a custom number format of #,##0,K. Each comma after the final 0 will divide the displayed number by another thousand

Watch MrExcel Video

Forum statistics

Threads
1,099,805
Messages
5,470,888
Members
406,733
Latest member
darzu

This Week's Hot Topics

Top